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POLICY: PASCAL NEWS (Jan. 83) 

• Pascal News is the official but informal publication of the User's Group. 

Purpose: The Pascal User's Group (PUG) promotes the use of the programming language Pascal as 

well as the ideas behind Pascal through the vehicle of Pascal News. PUG is intentionally de- 
signed to be non political, and as such, it is not an "entity" which takes stands on issues or 
support causes or other efforts however well-intentioned. Informality is our guiding principle; 
there are no officers or meetings of PUG. 

The increasing availability of Pascal makes it a viable alternative for software production and 
justifies its further use. We all strive to make using Pascal a respectable activity. 

Membership: Anyone can join PUG, particularly the Pascal user, teacher, main- 
tainer, implementor, distributor, or just plain fan. Memberships from 
libraries are also encouraged. See the COUPON for details. 

• Pascal News is produced 4 times during a year; January, April, July October. 

• ALL THE NEWS THAT'S FIT, WE PRINT. Please send material (brevity is a virtue) for Pascal News single- 
spaced and camera-ready (use dark ribbon and 15.5 cm lines!) 

• Remember: ALL LETTERS TO US WILL BE PRINTED UNLESS THEY CONTAIN A REQUEST TO THE 
CONTRARY. 

• Pascal News is divided into flexible sections: 

POLICY — explains the way we do things (ALL-PURPOSE COUPON, etc.) 

EDITOR'S CONTRIBUTION — passes along the opinion and point of view of the editor together with changes 
in the mechanics of PUG operation, etc. 

APPLICATIONS — presents and documents source programs written in Pascal for various algorithms, and 
software tools for a Pascal environment; news of significant applications programs. Also critiques regarding 
program/algorithm certification, performance, standards conformance, style, output convenience, and general 
design. 

ARTICLES — contains formal, submitted contributions (such as Pascal philosophy, use of Pascal as a teaching 
tool, use of Pascal at different computer installations, how to promote Pascal, etc.). 

OPEN FORUM FOR MEMBERS — contains short, informal correspondence among members which is of 
interest to the readership of Pascal News. 

IMPLEMENTATION NOTES — reports news of Pascal implementations: contacts for maintainers, implemen- 
tors, distributors, and documentors of various implementations as well as where to send bug reports. Qualitative 
and quantitative descriptions and comparisons of various implementations are publicized. Sections contain 
information about Portable Pascals, Pascal Variants, Feature-Implementation Notes, and Machine-Dependent 
Implementations. 

VALIDATION SUITE REPORTS — reports performance of various compilers against standard Pascal 
ISO 71 85. 
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Hello, 

Well, this is the third issue I am involved with and 
there have been many changes. I would like to write of 
Pascal first. 

Pascal has enjoyed a jump in attention in the last 
year. One reason is that there are Pascal compilers 
available for many machines and, I am tempted to say, 
they are available for any machine. Most of the major 
main frames have Pascal either directly or from a third 
party. 

One step down in size, I know of only one machine, 
the Tandem computer which is without a Pascal imple- 
mentation. A Tandem representative here in Cleveland 
informed me they have a language called "TAL" and 
in many cases will execute a Pascal program with no 
changes. 

A couple more steps down in size are the small Dig- 
ital Equipment machines and compilers are available 
from about four sources. IBM has the Display writer 
and Datamaster. These were released without our lan- 
guage, but in the last year, UCSD Pascal has been made 
available through IBM. Apple Computer has been a 
strong and long supporter of Pascal. TRS 80 has UCSD 
Pascal. 

The smallest machine with Pascal is the TI 99/4A. 
In this size, Commodore has promised Pascal for this 
summer on the "64" and "128" machines. 

The small computer, that is, the home computers 
and small business computers, have exceeded $10 mil- 
lion in sales. This is according to Future Computing, a 
Richardson, Texas research firm. 

With a guess, I would say that Pascal is imple- 
mented on at least 25% of these machines. If only 1% 
of these were being used to learn and program Pascal, 
then 25,000 people are presently involved. This is a lot 
of people looking for the best books from which to learn. 

I am making an appeal to our members to submit 
comments and reviews of text books so that we all may 
benefit from your experience. I get calls from authors 
requesting information on Pascal. To these people, the 
best I can do is to send complete sets of Pascal News ! 
With your comments and criticism, perhaps we could 
influence future text books. 

Herb Rubenstein of Budget Computer in Golden, 
Colorado has sent a small article from Popular Com- 
puting. It seems that advanced placement test in com- 
puter science will use structure programming and the 
Pascal language. These tests allow up to one year of 
college level credits in computer science. The author of 
this article, Dan Watt, believes that the choice of Pascal 
in the testing may lead to Pascal as a defacto standard 
in high schools preparing students for college. Let me 
quote the last paragraph: 

"This situation illustrates the power of the 
testing establishment to influence the lives of stu- 
dents and teachers. Although the vast majority of 
high schools now offer Basic as the standard com- 
puter language for most programming and com- 
puter science classes, this action by the College 



Board may lead to the establishment of Pascal as 
a defacto standard for high school teaching and 
spawn an entire mini industry of curriculum to 
meet the new requirements. It may also offer sig- 
nificant school marketing advantages to micro- 
computer companies that already support Pascal 
— such as Apple, IBM and Texas Instruments." 

I would like to see comments from you regarding 
this use of Pascal in a rite of passage. 

In this issue, you will find a reprint of Dr. Srully 
Blotnick's column from Forbes magazine. I like this 
column because of the clever way he has made our 
economy dependent on you learning Pascal. 

I enjoy Forbes magazine. They emphasize com- 
mon sense and illustrate proven business practices. 
Forbes also takes a pulse of industries, and small com- 
puters is a fast growing industry. In a column called 
"Technology", edited by Stephen Kindel, on March 
28, 1983, he noted that 2% of the households in the 
U.S.A. own computers of one form or another. There 
had been predicitions of 40% of households by 1990. 
This has been reduced to 20% in 1990 because there 
doesn't seem to be software that is useful in households. 

Mr. Kindel ends this article with a quote from Sey- 
mour Papert, an MIT professor: 

"The real purpose of learning how com- 
puters work should be to improve human logic and 
thought processes, to make people more creative, 
not simply more dependent on machines." 

Maybe this would be a good issue to review the 
tools available in our back issues. This issue contains 
the APL scanner. I am embarrassed to print this, not 
because of the program's quality, but because it was 
submitted four years ago. Well, no time like the present. 

In issue #17 (yellow), Arthur Sale submitted "Re- 
ferencer", a procedural cross reference. This program 
provides a printout of the heading of each procedure 
and function with indentation showing nesting. In issue 
#25, Mr. Yavner has improved on this program with 
"A Better Referencer". Mr. Yavner claims that Pascal 
News has been his sole source of instruction in Pascal. 
I believe this is a compliment to Andy Mickel and Rick 
Shaw for their efforts to maintain this newsletter. We 
should also thank our contributors, Mr. Sale for in- 
stance, for outstanding generosity. These people will 
appreciate your complements, criticisms and gifts of 
money. (Ho! Ho!) 

Andrew Tandenbaum, in issues 21 and 22/23, pro- 
vided us with "The EMI Compiler". This is a good look 
at all that is necessary for a pseudo 32-bit machine pas- 
cal compiler. 

The UCSD Pascal Project started with a 16-bit 
pseudo machine portable compiler. It was called P4 out 
of Zurich, Switzerland by Vrs Ammann, Kesav Nori 
and Christian Jacobi. I mentioned this because it has 
been published with critical commentary by S. Pem- 
berton and M.C. Daniels in 1982. It is presented as a 



Editor's Notes 



case study of compiler design and is very interesting to 
read. 

Pascal Implementation 
S. Pemberton and M.C. Daniels 
Ellis Horwood Limited Publishers 
Distributed by: 

John Wiley & Sons 

605 Third Avenue 

NY, NY 10016 

USA 

In #21 you will find Jeff Pepper's fine implemen- 
tation of extended precision arithmetic. 

Nicklaus Wirth, Pascal's creator, wrote Pascal S 
and we have it in # 19 (mislabeled # 17). This is a subset 
of Pascal and was intended as a teaching aid. 

Also in # 19 is a Lisp interpreter written in Pascal. 

"MAP", a Pascal macro preprocessor for large 
program development, is published in #17. 

Issue # 16 contains the Validation Suite version 2.2. 
This is the compiler checker that Arthur Sale and Brian 
Wickman have now revised to version 3. This new ver- 
sion is available by using the Validation Suite coupon 
in the rear of this issue. 

"Prose", a text formatter, by John Strait is the ma- 
jor program available in #15. A disclaimer in the in- 
structions manual admits that it doesn't do everything, 
but I must say, it has a lot of capability. 

In # 13, two programs were printed that performed 
the same work. A sort of "Battle of Algorithms". 
"Pretty Print" and "Format" used any Pascal pro- 
grams as input and printed it in a consistent style. 

For those of you looking for other Pascal periodi- 
cals, there are four of which I know. "Pascal Market 
News", 30 Mowry Street, Mt. Carmel, CT. 06518. This 
is a nice quarterly for $9. 

Another quarterly for Oregon Software users is the 
"Pascal Newsletter". Maybe this is too narrow in con- 
tent, but you will know what Oregon Software is up to. 
Their address is 2340 SW Canyon Rd., Portland, OR. 
97201. 

A very slick magazine with good design is "Journal 
of Pascal and Ada. ' ' You can contact them at West Pub- 
lishing Company, 898 South State Street, Orem, UT. 
84057. The cost is $14 for six issues. 

The USUS News and Report is more a system 
user's journal, but the system is based on Pascal. They 
also have a software library, seventeen floppy disks full, 
and all in source code and written in Pascal. 

Now to the business of Pascal News. Pascal News, 
as the Pascal periodical granddaddy published since 
January 1974, has had its ups and downs. In 1979 our 
circulation was 7,000; now it is 3,600. Our biggest prob- 
lem has been irregular publication. I am committed to 
four issues this year and I am considering six issues next 
year. I believe that regularity will supply us with growth 
and members and more software tools. 

As I mentioned in the last issue, PUG (AUS) has 
stopped and I, in the USA, have taken over their area. 
Unfortunately, they have not sent me their mailing list 
and I fear that I have lost touch with our members there. 
This issue will be sent to those members listed as of 
1979 and I hope they will "spread the word" and the 
subscription coupons ! 

Open Forum 



Our PUG (EUR) has performed very nicely and I 
thank Helmut Weber and friends for their good work. 
But they have a problem concerning money. They have 
not charged enough for subscriptions and were pressed 
to send our #24. As a result, I will mail all issues di- 
rectly and I hope you will not be inconvenienced. Please 
keep in touch with them as they are a strong group. 

I have saved the worst for last. In November, 1982, 
I sent 300 copies of issue #24 to Nick Hughes in care 
of PUG (UK), Post Office Box 52, Pinnen, Middlesex 
HA5 3FE, United Kingdom. Using the phone number 
866-3816, the air express shipper delivered these issues 
by mid-November. All well and good. The issues ar- 
rived before the cover date with plenty of time to post 
them to our English members. I called Nick at this num- 
ber many times, but spoke to him only after many 
months. It was late April and I asked if I should use the 
same procedure in shipping #25 to him. 

Nick said that the issues arrived properly and that 
method was efficient but wanted to know what was in 
#25. He told me that he did not like issue #24 and from 
the sound of it, did not like issue #25. He had disliked 
#24 so much, he decided not to send any of them out. 
Need I say more? 

Nick will not supply his mailing list so I am sending 
this issue and #25 directly to the members of record in 
the United Kingdom as of 1979. If you feel a need to 
find out why Nick Hughes did not like issue #24 or 
would like to see it yourself, please call or write Nick 
at the above address and ask for your copy. He has 300 
and I am sure he can spare one. 

As a result of these difficulties, I will receive and 
service all subscriptions from here in Cleveland, Ohio. 
From now on, there will be only one person to blame 
if you have a complaint. 

As of this issue, a year's subscription is raised in 
price to $25 a year and $50 for three years. These rep- 
resent two sets of costs; production and organization. 
Production costs are typesetting, printing and mailing. 
Other activities of production are editing, reviewing, 
quality assurance and formatting. These tasks are per- 
formed by "yours truly" and presently I do them for 
free. (I'm real smart!) 

Organization is a cost of servicing you and other 
members satisfactorily. This includes collecting and re- 
viewing the mail, depositing checks, updating the mail- 
ing list, sending back issues to fill new subscriptions and 
sending sets of previous years back issues. In order to 
do this correctly, and in a timely fashion, I don't do it. 
I pay a firm to perform "fulfillment" and it takes one 
or two days per week. This cost is small compared to 
the bad feelings generated if not done correctly and 
quickly. 

These are costs of which you are totally respon- 
sible. This newsletter has been a beneficiary of volun- 
teerism. There are no volunteers now (save me). In many 
magazines, advertisements will pay for all production 
and organizational costs plus provide profits, some- 
times large profits. 

The cost of a full page ad mByte or PC or PC World 
is over $2,000 and these are publications with 500 pages ! 

Now we may be able to keep our costs down and 
publish more often if we accept advertising. Three 
hundred dollars per page is not expensive. I will pursue 



advertisers and I am asking for your help. If you are 
writing a book, have your publisher advertise with Pas- 
cal News. If you are making software packages, influ- 
ence your boss in the virtues of an ad in Pascal News. 
If you manufacture or sell computers, sell your product 
from the pages of Pascal News. This is the oldest Pascal 
publication and, I proudly say, the most influential. 

This newsletter help spread Pascal and our mem- 
bers were most influential in the standard efforts. 

I believe Pascal News' new mission is to enable 
Pascal to be taught in the easiest way. This is in many 
forms. For instance, reviews of books and texts, dis- 
cussion of what features to teach first as a foundation, 
how to teach advanced courses, discussions of exten- 
sions or standard program tools to include in every well 
written program as it is appropriate. 

By the way, Andy Mickel tells me that the ''Pascal 
User's Manual and Report" by Jensen and Wirth has 
sold 150,000 copies in 1982. This is interesting consid- 
ering that in the previous seven years, it sold 175,000 
copies. A very sharp jump in interest. 

A new text book has been sent to me, "Pascal" by 
Dale/Orshalik, 1983 DC Heath. A nice title, short and 
to the point. The preface states a philosophy that I would 
like you to comment on. 

4 Tn the past there have been two distinct ap- 
proaches used in introductory computer science 
texts. One approach focused on problem solving 
and algorithm design in the abstract, leaving the 
learning of a particular language to a supplemental 
manual or a subsequent course. The second ap- 
proach focused on the syntax of a particular pro- 
gramming language, and assumed that the 
problem-solving skills would be learned later 
through practice. 

We believe that neither approach is ade- 
quate. Problem solving is a skill that can and should 



be taught — but not in the abstract. Students must 
be exposed to the precision and detail required in 
actually implementing their algorithms in a real 
programming language. Because of its structured 
nature, Pascal provides an effective vehicle for 
combining these two approaches. This book 
teaches problem-solving heuristics, algorithm de- 
velopment using top-down design, and good pro- 
gramming style concurrently with the syntax and 
semantics of the Pascal language." 

One of the letters mentions high resolution graph- 
ics. I know of two texts that use Pascal as the illustra- 
tive language of their algorithms. They are "Principles 
of Interactive Computer Graphics" by Williams New- 
man and Robert Sproull, 1979 McGraw-Hill and "Fun- 
damentals of Interactive Computer Graphics" by James 
Foley and Andries Van Dam, 1982 Addison- Wesley. 

Two notes from members: 

Steven Hull of Campbell, California, received a 
notice from me that #22/23 had been returned to us be- 
cause the postal service will not forward bulk mail. His 
reply: 

"I guess this will teach me to move from 
Lakewood (a suburb of Cleveland, Ohio). Didn't 
know bulk mail wasn't forwardable. The Postal 
Diservice has been re-routing every piece of junk 
mail for a full year ... I might have to file suit to 
stop it all ! 

And from Eric Eldred of New Hampshire who re- 
warded Pascal News with a three year subscription and 
dutifully filled the coupon with name and address and 
arrived at a request for "Date". Eric filled in "No! 
Married!". Thanks Eric, I needed that! 

Charlie 



Open Forum 
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To Charlie Gaffney, 

I'm glad you have taken on Pascal News. I hope 
it works. 

Perhaps, I should say what I would like to see pub- 
lished in Pascal News. The most valuable things are 
1) Tools, and 2) Info on the various implementations. 
In my job we are using many computers. It is very help- 
ful to know which compilers work well, meet stand- 
ards, and produce efficient code. Apple Pascal is nearly 
bug free, and works as specified (with UCSD quirks). 
IBM Pascal VS is good — extensions are large pre- 
senting conversion problems if they are used. It has a 
good interface to FORTRAN. VAX Pascal is plain va- 
nilla, appears to work well but we have not tested it in 
difficult situations. HP Pascal 1000 works fine but does 
not have a stack architecture and seems to compile 
slowly. Recent tests on HP Pascal 1.0 for the HP 200 
computers seem to indicate it derives from UCSD al- 
though it is a native code 68000 compiler. It seems to 
work very well. We are interested in Pascal for the Data 
General Eclipse. 

Good luck, 

Dennis Ehn 

215 Cypress Street 

Newton Centre, MA 02159 

Gentlemen: 

Would you be so kind as to send information on 
the Pascal User's Group (PUG) and its official publi- 
cation Pascal News. Recently we have acquired a mi- 
crocomputer Pascal compiler and are very much 
interested in keeping up with current developments in 
Pascal. 

Our system is based upon a South West Technical 
Products Corporation S/09 computer, running the 
UniFLEX Operating System (similar to UNIX). If spe- 
cific information is available for this unit, please let us 
know. 

Additionally, the college has several (approxi- 
mately 18) Apple computers which are capable of run- 
ning the UCSD Pascal System. Once again, any special 
information here would be very helpful. 

We look forward to hearing from you and hope that 
we can make a positive contribution to the Pascal User's 
Group. 

Yours Truly, 

Lawrence F. Strickland 

Dept. of Engineering Technology 

St. Petersburg Jr. College 

P.O. Box 13489 

St. Petersburg, FL 33733 

Dear Sir, 

I just received issue number 25 of Pascal News and 
was surprised to find an implementation note for our 



Pascal compiler. What makes it surprising is that to the 
best of my knowledge I have never sent in an entry, and 
the information provided is about a year and a half out 
of date. 

In case you would like to provide your readers with 
valid information, I have enclosed an implementation 
note for the currently available compiler. I have also 
enclosed a copy of the ISO validation suite report from 
our language manual. 

Work is currently being done on moving this com- 
piler to the 68000 family of processors and should be 
available by the end of 1983. 

On another note, I have received issues number 21 , 
22/23, and 25, but not issue 24. I am also enclosing a 
check for a 3 year membership — please see if you can 
determine what happened to number 24. 

Sincerely, 

Robert Reimiller 

Owner, OmegaSoft 

5787 Brandywine Ct. 

Camarillo, CA 93010 



December 1, 1982 

I hope the letter referring to the possible end of the 
P.U.G. is wrong! I can be of some help if needed. 



Allen Duberstein 

Pine Instrument Co. 

3345 Industrial Blvd. 

Bethel Park, PA 15102 



January 10, 1983 
Dear Mr. Gaffney: 

Enclosed is a check covering both the remailing 
cost of Pascal News #24 ($5) plus my membership re- 
newal for two years ($18). 

My apologies for getting out of synchronization with 
the Pascal Users Group. As the post office informed 
you, I recently moved to the address noted. Frankly, I 
hadn't received & Pascal News in so long that I simply 
forgot about it. It appears that I won't miss any issues 
— the enclosed All-Purpose Coupon is from issue #23. 

Interestingly, after a long period (3 years) of not 
using Pascal, it looks like I will be using it once again. 
We have a couple of Convergent Technologies work- 
stations in my office. These are very nice 8086-based 
machines; Burroughs sells them as the B-20s, and NCR 
sells them as WorkSavers. We will probably be getting 
a Pascal compiler, and I am looking forward to getting 
back into Pascaling in the near future. 

Sincerely, 

Read T. Fleming 

144 Irving Avenue #B-3 

Providence, RI 02906 
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November 30, 1982 

I was surprised and pleased to receive issue num- 
ber 24 of Pascal News. Thanks for taking it over. I do 
have one question, however, which you might be able 
to help me with. What year is it? My address label in- 
cludes [82] on it but the previous issue I received was 
dated September, 1981. 1 notice that this issue is dated 
January, 1983. Should I send in another year's sub- 
scription money now? What happened to 1982? I never 
have managed to figure our Pascal News' subscription 
scheme. Maybe a note in the issues towards the end of 
a year saying "if your address label says [82] it's time 
to send in a renewal" would help. 

Thanks for your help. 

Richard Furuta 

Computer Science, FR-35 

University of Washington 

Seattle, WA 98195 



March 3, 1983 
Dear Mr. Gaffney: 

I'm writing to let you know why I am not renewing 
my subscription to Pascal News . The main reason is 
that the price is now too high for the utility of the prod- 
uct (at least to me). I appreciate your efforts to keep 
PUG and Pascal News going, but I'm afraid they may 
have outlived their usefulness. Pascal is not really in 
need of promotion as it was when PUG was formed. 
The Journal of Pascal & Ada may be an appropriate 
successor. 

As a long-time subscriber and occasional contrib- 
utor, I wish you luck in your efforts. 

Richard Leklanc 

Assistant Professor 

Georgia Institute of Technology 

Atlanta, GA 30332 



8 February 1983 
Dear Sir, 

I received your notification of renewal in the mail 
yesterday. I am slightly concerned that you may not 
have received the check which I mailed to you in De- 
cember. I hope that it has only been a slight mix-up, 
and in fact, my subscription has been renewed for 3 
years, as I requested. 

I am currently using the Pascal implemented by 
Microsoft for the IBM Personal Computer. It has some 
non-standard features which were provided in order to 
allow programmers to access the full capabilities of the 
machine. This implementation is quite flexible, and was 
designed to allow users to produce systems programs, 
as well as application programs. 

The greatest shortcoming to this product, how- 
ever, is its lack of usable documentation. Even some- 
one like myself, who has been programming in Pascal 
for 8 years, has difficulty in trying to locate the appro- 
priate material in the 'reference manual'. Once this is 
overcome, the user is able to use this version for the 
production of some very powerful software. 

I continue to look forward to the delivery of your 
fine newsletter. I enjoy the articles, and realize how dif- 
ficult a task you have. Keep up the good work. 

Regards, 

Robert A. Gibson 

1609 Lake Park Dr. 

Raleigh, NC 27612 



November 30, 1982 

Pascal is being used for process control of laser 
trimming systems. We use Oregon Software Pascal. 

Barbara Huseby, Training Dept. 

Electro Scientific Industries 

13900 N.W. Science Park Drive 

Portland, OR 97229 



January 7, 1983 

Hang in there, Charlie! 



Andy Mickel 

106 SE Arthur Avenue 

Minneapolis, MN 55414 



December 9, 1982 
Dear Sirs: 

Could you provide us with information on mem- 
bership in your organization, both personal and insti- 
tutional, as well as the subscription cost of your journal. 

We are also interested in a rigorous comparison of 
the various PASCAL versions implemented by mini and 
microcomputer vendors. Do you know of any such 
comparative research? We are making plans to offer 
Advanced Placement Computer Science in the fall term 
of 1983, and wish to select an effective computer. 

Very truly yours, 

Charles McCambridge 

Director 

Instructional Materials Services 

Niskayuna High School 

1626 Balltown Rd. 

Schenectady, NY 12309 



December 25, 1982 

Merry Xmas ! Good luck, Charlie ! Is your "acqui- 
sition" of PUG a sign that PUG and USUS will some- 
day merge? I'm not sure I'd like that, but let's see. 

Jim Merritt 

P.O. Box 1087 

Morro Bay, CA 93442 



December 24, 1982 

Please send me information on joining the Pascal 

Open Forum 



User's Group, I am a software project engineer at Gen- 
eral Electric in Syracuse. I am currently in the process 
of selecting a high level language for internal program- 
ming of a 1024 x 1280 resolution raster display. Pascal 
is the leading candidate, therefore, I am very interested 
in the latest information regarding the language which 
I feel a user's group could provide. 

My interest does transcend my work however as I 
do own a Commodore SuperPET which includes the 
University of Waterloo software package consisting of 
Pascal, APL, Fortran, Basic and a 6809 Assembler. 

Sincerely, 

Douglas W. MacDonald 

4303 Luna Course 

Liverpool, NY 13088 



2/5/83 

To Whom It May Concern: 

I just received your notice to inform me that my 
membership is about to expire and that I should renew 
now. 

I would like to tell you that I would consider re- 
newing if I could be assured of getting my money ' s worth 
— this time ! 

When I first joined in 1981, 1 didn't hear from Pas- 
cal News for almost a year. Then a few months ago, I 
received a second issue, but that's been it. 

Now I am a convicted Pascaler. I understand the 
difficulties of operating a non centralized club, but $20 
should buy some kind of organization for things I feel. 

Can you assure me of a better value this time 
around? 

Cordially, 

David Abate 

Micro People 

116 S. BowdionSt. 

Lawrence, MA 01843 

P.S. Question: Do you intend anything on UCSD-Pas- 
cal? This is my greatest interest. 

7 January 1983 
Hi, 

This is a note in a bottle to: 1) find out if you're still 
out there, and 2) what's happening with Pascal. It 
doesn't seem to be taking the bite (or is that byte) out 
of Basic I thought it would. 

We will start covering Pascal as soon as we have 
finished Basic programming — about five weeks from 
now. The extension program from Hocking Technical 
College in Nelsonville has provided seven Apple II and 
Apple III computers and two printers. By the end of the 
year, they will have installed a Winchester disc and either 
a modem or a microwave link to their main campus 
computer. We'll need it by then to cover the Cobol and 
Fortran IV programs we'll be writing. 

Most of my practical computer experience is in as- 
sembler language. I used it at Cincinnati Milacron's 



Process Controls Division (Mater's of the controls for 
the T 3 Industrial Robot). 

I am interested in any literature you have to send 
me. In particular, I would like the titles of the books 
you consider best for teaching Pascal — either on the 
Apple II or on computers in general. Apple, Inc., sent 
me the Pascal Reference Manual (just a bit or a nibble 
over my head). I've also read copies of the DOS 3.2 
Reference Manual and their Basic Programming Man- 
ual. I covered all these before classes started and wound 
up tutoring two other student/inmates. 

Sincerely, 

Brian Appleman 166-767 

15802 St. Rt. 104 

P.O. Box 5500 

Chillicothe, OH 45601 

P.S. If you need more on my background, just ask. 

83-02-24 
Dear Charlie: 

I am a member of PUG (AUS) which has just folded, 
and I would like to re-enroll through PUG (US). 

I don't share Arthur Sales view that PUG and PN 
have no purpose now that there is an ISO standard. The 
world still needs cheap, good software and PN (in a 
modest way) supplies some of it. Also, some organi- 
zation is needed to defend and develop good program- 
ming language and style. 

PUG (AUS) says I have a credit of 12 (old) issues 
and that the funds have been sent to you. Please will 
you accept my re-enrollment and advise me how many 
(new) issues I am now entitled to? 

Finally, I, and I'm sure, many others appreciate 
your offer to keep PUG/PN going. 

Thanks again. 

Yours sincerely, 

Peter Edwards 
40 Davison St. 
Mitcham, Vic. 
Australia 3132 

December 3, 1982 

Best wishes in this venture, Charlie. I agree that 
Pascal News and P.U.G. are worth saving. 

John W. Baxter 
750 State Street, Apt. #224 
San Diego, California 92101 



February, 1983 

You people have ripped me off for the last time ! 

By your own back order form (attached) you show 
that my renewal in 1981 paid for 3 issues mailed in 1982. 
But then, WHAT OF MY RENEWAL PAID IN 1982? 
ONLY ONE ISSUE #24 COUNTS??? AND THAT 
HAD TWO PREVIOUSLY PUBLISHED PRO- 
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GRAMS!! (That is, programs I had ALREADY re- 
ceived.) If you ran a decent organization, you'd make 
my 1982 renewal count for 1983 also. 

David S. Bakin 

Softech Inc. 

360 Totten Pond Road 

Waltham, MA 02154 



December 24, 1982 

We're indebted to you, Charlie! 



Wayne N. Overman 

3522 Rockdale Ct. 

Baltimore, MD 21207 



February 17, 1983 
Dear Mr. Gaffney, 

I am one of those folks who does not have a cur- 
rently correct address with Pascal News. 

Enclosed is a check for $5 for a copy of issue 19 
which was returned to you. 

Thank you on behalf of all the members of the user's 
group for the effort you are putting out. It is very much 
appreciated. 

Tom Bishop 

P.O. Box A 

Kenmore, WA 98028 



March 14, 1983 
Dear Sir or Ms.: 

We plan to offer Pascal at our school. I would ap- 
preciate receiving information on your group and, if 
possible, a sample copy of Pascal News. 

Any suggestions or information you could send 
would be appreciated. We are particularly concerned 
that the new Apple 2-E does not support Pascal with 
one disk drive. We had hoped tht UCSD Pascal with 
one drive would work on the Apple 2-E. 

Thanks for your help. 

Sincerely, 

Harold Baker 

Director, Computer Science 

Litchfield High School 

Litchfield, CT 06759 

February 11, 1983 
Hi! 

Here's my renewal. I really enjoy Pascal News and 
have been upset about what has happened with it the 
past 18 months or so. It has been of substantive value 
to me, particularly in the area of the style of Pascal cod- 
ing among the community that have submitted articles. 

I would like to see more articles on Modula 2, 



Wirth's follow on to Pascal and Ada in parallel. To me, 
this would seem a way of keeping PUG alive as well as 
providing a growth path to these languages for Pascal 
programmers. 

I use Pascal/ VS extensively at work and I have 
found its extensions the best of any other Pascal com- 
piler for S/370 compatible machines. Almost all of its 
extensions are within the "spirit" of Pascal and uses a 
very good extension to STRING data. Of particular 
convenience is its READSTR and WRITESTR func- 
tions (they are procedures actually -unfortunately). I 
force the concept of function upon them by embedding 
their invocation within a function when required. 

I never received issues 20 and 21 of Pascal News 
during the confusion, although I did mention this at 
times. I would certainly purchase them separately, but 
I am not prepared to purchase two sets to get them. 
Please advise. 

Thanks for your work, 

Bob Dinah 

630 Alvarado St. #207 

San Francisco, CA 94114 



November 12, 1982 

Dear Pascal User's Group: 

The only source of information that I have on the 
Pascal User's Group came from 'The BYTE Book of 
Pascal", according to an article written by Kenneth 
Bowles. An editor's note of July 1, 1979 listed the an- 
nual newsletter as $6.00 per year. I am enclosing $12.00 
in case things have increased since that date. If this 
amount is insufficient, please make it up on back issues. 

I am currently using an Apple /// with Apple com- 
puter's version of UCSD Pascal. There does not seem 
to be more than a dozen books written on Pascal, and 
just a few on UCSD. 

I am an ex-electrical engineer, turned to building 
construction. Previously, I worked for Westinghouse 
Research Center in Pittsburgh, and used the Burroughs 
B6500 main frame computer with ALGOL language. 
The B6500 used a number of formats and types that I 
miss; the Fixed Format was especially useful since it 
allowed the user to specify the number of total digits 
and the number of decimal digits combined. I would like 
to use this format in UCSD Pascal. 

Thanks for taking the time to help me. 

Very truly yours, 

Larry J. Moorhead 

5207 - 32nd Street East 

Bradenton, Florida 33508 

18 March 1983 
Dear Sirs, 

For the first time we have received a copy of Pas- 
cal News, and it has been read with great interest. 

We would like to join your User Group but cannot 
find either a price or contact address for our region. 

Please send us this information as soon as possible, 
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so that we can become members and start receiving your 
journal on a regular basis. 

We have taken note of your abhorrance of paper- 
work (and endorse the sentiment) and will send the nec- 
essary prepayment once we receive the information. 

Yours sincerely, 

Bette Kun 

Librarian 

Control Data 

P.O. Box 78105 

Sandton, South Africa 2146 

20 April 1983 

Dear Mr. Shaw: 

Enclosed is a check for $10.00 for a one-year sub- 
scription to the PASCAL Users' Group Newsletter. We 
have just recently acquired PASCAL-2 here at Villa- 
nova and our students are using it on LSI- 11 systems 
running RT-1 1 V4.0 for applications involving real-time 
control, data acquisition, and computer communica- 
tions. 

Sincerely yours, 

Richard J. Perry, Ph.D. 

Villanova University 

Dept. of Electrical Engineering 

Villanova, PA 19085 



15th February, 1983 
Dear Mr Gaffney, 

As a long PUG user the demise of PUG-AUS is a 
blow. Anyhow, as you can see from the attached letter 
I would love to continue and thus need your help. 

Could you please detail the fees for 1983 for us 
"down under" for surface mail and air mail and as you 
can see I'm afraid I've not got issue number 21. Can 
you help? 

For interest I use: 



UCSD Pascal/p-System 



Pascal MT+ under CP/M 



and MP/M 



Pascal MT+86 under CP/M-86 



and MP/M-86 



ERA-50 Computer 

(8-bit, 8085 base) 
ERA-50 Computer 
(8-bit, 8085 base) 
ERA-50 Computer 

(8-bit, 8085 base) 
ERA-80 Computer 

(16 bit, 8086/8087 based) 
ERA-80 Computer 

(16 bit, 8086/8087 based) 



Regards, 

Dr. William J. Caelli, F.A.C.S. 

President 

ERACOM Group of Companies 

P.O. Box 5488, G.C.M.C. 

Qld. 4217, Australia 

1-8-82 

Dear Sir/Madam, 

This is the first letter I write to contact you. Let 
Open Forum 



me introduce myself first. I am a student pursuing a 
computer course in the Hong Kong Polytechnic — a 
licensed user of your OMSI-PASCAL-2 VI. 2. I don't 
know what your definition of user may be. May it be 
my Polytechnic or any student or programmer who use 
your OMSI PASCAL- 1 under the Polytechnic, I ven- 
ture to call myself a user in this letter, and would like 
to join the Pascal Users' Group and receive the 
newsletter. 

In the past few months, I have been doing exten- 
sive programming using PASCAL, and find it very 
handy, especially in writing structured programs. How- 
ever, until recently when I develop some system pro- 
grams, I find problems. I discover that there is no source 
listing or documentation on the OMSI PASCAL- 1 run 
time system (possibly in file FPP.RTS) and its relation- 
ship with RSTS/E, and I cannot interface with the low 
level I/O trap handlers without knowing their details. I 
find some problems on the RESET ODT mode, but I 
cannot deal with it in assembly level. 

All in all, my problem is highly personal and does 
not in any way bear relation with the Hong Kong Po- 
lytechnic. However, as a student on computing, I don't 
want to leave problem unsolved. So, please send me 
any informational help, if possible. 

Included please find a bank draft of $6 for 
subscription. 

May I state once more my request. I need infor- 
mation on OMSI PASCAL- 1 run time system espe- 
cially the EMT trap handling. 

Thank you very much in advance. 

Yours faithfully, 

Mr Kam Man-Kai 

Flat 8 

3/F Ting Yin House 

Siu On Court 

Tuen Mun - N.T. 

Hong Kong 



6th November, 1982. 
Dear Mr. Mickel, 

I am a student of computing studies in the H.K. 
Polytechnic. Recently, I got a chance to buy a Chinese 
version of c A Practical Introduction to Pascal' by Wil- 
son & Addyman from which I was informed that there 
is a PUG in States. 

Briefly understanding the objectives of the PUG, I 
find myself in great interest in joining the group. Would 
youb be so kind as to provide me with further infor- 
mation as far as the PUG is concerned. I am eagerly 
looking forward to your reply. 

Yours sincerely, 

Alan Kwong 

12, Boundary St. 

Po Hing Bldg. 

8/F, Block C 

Kin., H.K. 



December 23, 1982 

We have been using Oregon Software's RT-1 1 Pas- 
cal implementations for over three years with excellent 
results and complete satisfaction; Pascal is used for sci- 
entific "number crunching", program development, al- 
gorithm testing, etc. 

Bob Schor 

The Rockefeller University 

1230 York Avenue 

New York, NY 10021 



December 30, 1982 

A worthwhile journal. 



George Williams 

Union College 

Schenectady, NY 12308 



March 22, 1983 

Dear Mr. Gaffney: 

Thave previously received Pascal News through 
University of Tasmania. Is it still published? If so, do 
I have any credit on my subscription dues? I would also 
be interested in information about USUS. 



February 3, 1983 

Good job, Charlie! and good luck to the renewed 
Pascal News ! 

Norman W. Molhant 

320 Principale 

Tres-Saint-Redempteur, P.Q. 

Canada J0P 1P0 



May 1, 1983 

A professor in Ithaca, NY told me there exists a 
public domain UCSD Pascal available for micro's. 

I have a 60K Z-80 which uses memory map video, 
and a 63K 8085/8088 (both machines S-100 bus) which 
uses a TVI 950. I also have a H-29 terminal (like Z-19 
but with a detached keyboard). 

Is there really any way of getting this UCSD Pascal 
running on one of my systems? (I have UCSD on the 
Sage also Modula-2. Good stuff.) 

Thanks, 

J. E. Pournelle, Ph.D. 

12051 Laurel Terrace 

Studio City, CA 91604 



Yours sincerely, 

M.J. Palmer 

CSIRO 

Private Bag 

P.O. Wembley, W.A. 6014 
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Program APLscanner 

By Vincent Dichristofano, Alan Kaniss, Thomas Robinson, and John Santini 

NADC, Philadelphia, PA 



1 program APLscanner ( input { 
2 



TERMINAL }/ output 
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* Purpose: 

This program is an implementation of APL in Pascal. 

* Authors: 

Vincent Dichristofano 
Alan Kaniss 
Thomas Robinson 
John Santini 

authors' affiliation - NADC 



project leader 



Dr. Joseph Mezzaroba 



This program was written as part of an independent study 
course at Villanova University. 



* Submitted and accepted for Pascal News. DEC 197b. 



Label 
100; 

const 

prefixl = 60; 

prefix2 = 62 { prefix for CDC ASCII 12-bit codes }; 

MaxVarNameLength = 10; 

MaxINputLine = 132; 

InputArraySi ze = 134; 

NumberOf Messages = 100; 

MessageLength = 80; 

type 

Pa eked St ring = packed array L~1 .. MaxVarNameLength] of . . 8191; 
TokenNoum = 

(FormRes, FormArg, GlobVar, MonadOper 
SpecOper, constant, StatEnd); 
values = record 



ReductOper, DyadOper, 



RealVal: real; 
NextValue: "values 
end ; 
VarTab = record 

VarName: PackedString { V 1 }; 
FuncTabPtr: "FuncTab { v2 - ftab }; 
ValTabPtr: "ValTab { v3 - vtab }; 
DeferedValTabPt r: "FParmTab; 
NextVarTabPtr: "VarTab 
end ; 
ValTab = record 

IntermedResult : Boolean; 
dimensions: integer; 
FirstDimen: "Dimenlnfo; 
ForwardOrder : Boolean; 
FirstValue: "values; 
NextValTabLink: "ValTab 
end ; 
TokenTable = record 

NextToken: "TokenTable; 

case noun: TokenNoum o_f_ { p } 

FormRes, FormArg, GlobVar: { vtab 

(VarTabPtr: "VarTab); 
MonadOper: (Monlndex: integer); 
ReductOper: (Redlndx: integer); 
DyadOper: (DOpIndx: integer); 
SpecOper: (Charlndx: integer); 
constant: (ValTabPtr: "ValTab); 
StatEnd: (EndAdj: integer) 



vfunc 



end ; 
record 



NextStmnt: "TokenTable; 
NextVFunPrt: "vfunc; 
StatLabel: PackedString 
end ; 
OperatorTypr = (niladic, monadic, dyadic); 
FuncTab = record 

FuncName: PackedString { f1 } 
arity: OperatorType { f2 }; 
result: Boolean { f3 true = 

ResultName: PackedString { f4 
LeftArg: PackedString { T5 }; 



ex pi icit } ; 



84 

85 

86 

87 

88 

89 FParmTab 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 



RightArg: PackedString { f6 }; 
Fi rstStatement : "vfunc; 
NextFuncTabPt r: "FuncTab; 
NumOf Statements: integer 
end ; 
= record 

"ValTab { sd 1 and sd2 



PtrVal: 
LastParm: 



"FParmTab 



link to last } 



{ sd1 
end ; 
Dimenlnfo = record 

NextDimen: "Dimenlnfo; 
dimenlength: integer 
end ; 
Op Re cord = record 

Oplndex: integer; 
OpSymbol: integer 
end ; 
102 OperandTab = record 
103 



104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 var 



OperPtr: 

LastOper 

end; 

record { sf 

CalledSubr: 



ValTab { sva i 
"OperandTab { 



link to last sval } 



}; 



) 



0p Table 



. FuncTab { s1 

TokenCallingSubr: "TokenTable { s2 

StatemCallingSubr: "vfunc { s3 }; 

LastSubrPtr: "SubrTab { link to last sf 

end ; 

array [1 .. 16] o_f_ OpRecord; 

VarTabPtrType = "VarTab; 

TypeValTabPtr = "ValTab; 

TokenPtr = "TokenTable; 

PtrFuncTab = "FuncTab; 

TypeVa luesPt r = "values; 

APLcharSet = 

(asymbol, Bsymbol, CSymbol, DSymbol, ESymbol, FSymbol, GSymbol, 
HSymbol, ISymbol, JSymbol, KSymbol, LSymbol, MSymbol, NSymbol, 
OSymbol, PSymbol, QSymbol, RSymbol, SSymbol, TSymbol, USymbol, 
VSymbol, WSymbol, XSymbol, YSymbol, Z Symbol, OneSymbol, TwoSymbol, 
ThreeSymbol, FourSymbol, FiveSymbol, SixSymbol, SevenSymbol, 
EightSymbol, NineSymbol, ZeroSymbol, colon, RightArrow, LeftArrow, 
SmallCircle, period, LeftParen, RightParen, LeftBracket, 
RightBracket, semicolon, quadrangle, space, plus, minus, times, 
divide, asterisk, iota, rho, comma, tilde, equals, NotEqual, 
LessThne, LessOrEqual, GreaterOrEqua I , GreaterThan, AndSymbol, 
OrSymbol, ceiling, floor, LargeCircle, Forwa rdSl ash, DoubleQuote, 
negative, Quest ionMa rk, omega, epsilon, UpArrow, DownArrow, alpha, 
Underscore, del, delta, SingleQuote, EastCap, WestCap, SouthCap, 
NorthCap, ibeam, TBeam, Vert i calSt roke, Ba ckwa rdSl ash) ; 

text = file of char; 



137" 
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161 
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164 

165 

166 



MessageLength] of_ 



XColonSym, XRightArrow, XLeftArrow, XLi tt leCi re le, XPeriod, XLeftPar, 
XRightPar, XLef tBrac ket , XRightBracket , XSemicolon, XQuadSym: 
integer; 

character: array [APLcharSet] o_f integer; 

APLstatement : array [1 .. Input ArraySi ze] o_f integer; 

digits: array COneSymbol .. ZeroSymbol] of integer; 

ErrorMsgs: packed array C1 .. NumberOf Messages, 1 . 
char; 

APLfile: text; 

MOpTab, DOpTab, RedTab, CharTab, SpecTab: OpTable; 

SaveLabel: PackedString; 

name: PackedString; 

NewTokenPtr, OldTokenPtr, Ho IdTokenPt r, SaveTokenPt r : "TokenTable; 

TestFuncPtr, NewFuncTabPt r, OldFuncTabPt r : "FuncTab; 

NewVarTabPtr, OldVa rTabPt r : "VarTab; 

LeftValPtr, RightValPtr, ValPtr: "values; 

NewValues, NewValPtr: "values; 

NewDim: "Dimenlnfo; 

DimPtr, NewPtr, LeftDimPtr, RigthDimPtr: "Dimenlnfo; 

VarPointer: "VarTab; 

OldVFuncPtr, NewVFuncPtr: "vfunc; 

NewValTabLink, OldVa ITabLi nk : "ValTab; 

position: integer; 

Line Length: integer; 

code, ColCnt: integer; 

FuncStatements : integer; 

TokenError, Fi rst Funct ion : Boolean; 

LineTooLong, HasLabel: Boolean; 

switch, Funct ionMode, TokenSwitch, It sAnldent i f ier : Boolean; 

OperTabPtr: "OperandTab { sv } ; 
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PtrLastOper: "OperandTab; 

SubrTabPtr: "SubrTab; 

RParmPtr: "FParmTab { P 1 }; 

LParmPtr: "FParmTab { p2 }; 

VFuncPtr: "vfunc { nl }; 

hold: "TokenTable { holds last symbol }; 



procedure InitParser; 



begin 

OperTabPtr := nil ; SubrTabPtr := nil ; LParmPtr := nil ; 

RParmPtr := nil ; VFuncPtr := nil ; hold := nil ; XColonSym := 1; 

XRightArrow := 2; XLeftArrow := 3; XLi tt leCi re le := 4; 

XPeriod := 5; XLeftPar := 6; XRightPar := 7; 

XLeftBracket := 8; XRightBracket := 9; XSemicolon := 10; 

XQuadSym := 11; new(0perTabPt r) ; OperTabPt r" .LastOper := nil; 

PtrLastOper := OperTabPtr; 
end { initparser }; 



procedure Ini t ial izeCharacterSet 



{ read installation character set from file }; 



Test ForPref ix : integer; 
Fi leCharacter: char; 
Symbollndex: APLcharSet; 

begin 

resetCAPLf ile); 
for Symbollnde 
begin 

read(APLf ile, Fi leCharacter) ; 



asymbol to BackwardSlash do 



{ The following code would be removed for non-CDC installations } 

TestForPref ix := ord( Fi LeCharacter) ; 

if (TestForPref ix = prefixD o_r (Test ForPref ix = prefix2) 
then 
begin 

read(APLf ile, Fi leCharacter) ; 

characterCSymbolIndex] := 100 * Test ForPref ix + ord( 
Fi leCharacter) ; 
end 
else 



characterCSymbolIndex] := ord( Fi leCharacter) 



end { initializecharacterset }; 
procedure ReadlnErrorMsgs; 



MsgRow, MsgCol: integer; 

begin 

readln(APLf ile); 

for MsgRow := 1 to NumberOf Messages do 
Tor MsgCol := T~to MessageLength do 

ErrorMsgsCMsgRow, MsgCoU := ' * { blank out error messages }; 
for MsgRow := 1 to NumberOf Messages do 

Peg in { read in error messages from file } 
MsgCol := 0; 

while not eoln(APLf i le) do 
begin 

MsgCol := MsgCol + 1; 

read(APLf ile, ErrorMsgsCMsgRow, MsgCol]); 
end ; 
readln(APLfile); 
end 
end { readinerrormsgs }; 



procedure Fi I LUpTables; 
begin 



MOpTabm. 
M0pTabC2L 
M0pTabC3L 
M0pTabC4]. 
M0pTabC5]. 
MOpTabC63. 
M0pTabC7], 
MOpTabC83, 
MOpTabC93. 

{ 



monadic operators } 

OpSymbol := characterCplus]; MOpTabd ]. Oplndex := 2; 

OpSymbol := characterCminus]; M0pTabC2]. Oplndex := 3; 

OpSymbol := characterCtimes]; M0pTabC3], Oplndex := 4; 

OpSymbol := characterCdivide]; M0pTabC4]. Oplndex := 5; 

OpSymbol := characterCasterisk]; M0pTabC5]. Oplndex := 6, 

OpSymbol := characterCiota]; M0pTabC6]. Oplndex := 21; 

OpSymbol := characterCrho]; M0pTabC7D. Oplndex := 22; 

OpSymbol := characterCcomma]; M0pTabC8D. Oplndex := 23; 

OpSymbol := characterCti Ide]; M0pTabC9D. Oplndex := 1; 



DOpTabCID. OpSymbol 
D0pTabC2]. OpSymbol 
D0pTabC33. OpSymbol 
DOpTabC43. OpSymbo I 
DOpTabC53.0pSymbol 
DOpTabC53. Oplndex 
DOpTabC63. Oplndex 
D0pTabC73. Oplndex 



dyadic operators } 

;= characterCplus]; DOpTabCI 3. Oplndex := 52; 
:= characterCminusD; DOpTabC23. Oplndex := 53; 
:= characterCtimes]; DOpTabC33. Oplndex := 54; 
:= characterCdivide]; D0pTabC4]. Oplndex := 55; 
haracterCasterisk]; 



:= 56; 

:= 87; 



D0pTabC6]. OpSymbo I 
D0pTabC7]. OpSymbo I 
D0pTabC8]. OpSymbol 



= characterCiota]; 
= characterCrho]; 
= characterCcomma]; 
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281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

J30 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 



DOpTabC83. Oplndex := 89; DOpTabC93. OpSymbo I := characterCequals]; 

D0pTabC93. Oplndex := 71; 

D0pTabC103. OpSymbol := characterCNotEquaU; 

D0pTabC103. Oplndex := 72; 

DOpTabC1 13. Op Symbol := characterCLessThne3; 

DOpTabCI 13. Oplndex := 73; 

DOpTabCI 23. OpSymbol := characterCLess0rEqual3; 

D0pTabC123. Oplndex := 74; 

DOpTabC133. OpSymbol := characterCGreaterOrEqual]; 

DOpTabC133. Oplndex := 75; 

DOpTabC143. OpSymbol := characterCGreaterThan3; 

DOpTabC143. Oplndex := 76; 

DOpTabCI 53. OpSymbol := characterCAndSymboU; 

DOpTabC153. Oplndex := 77; 

DOpTabCI 63. OpSymbol := characterC0rSymbol3; 

D0pTabC163. Oplndex := 78; 



{ 

CharTabC13 

CharTabC23 

CharTabC33 

CharTabC43 

CharTabC53 

CharTabC63 

CharTabC73 

CharTabC83. 

CharTabC93 

CharTabC103 

CharTabC113 

CharTabC123 

SpecTabC13 

SpecTabC23. 

SpecTabC33. 

SpecTabC43 

SpecTabC53 

SpecTabC63. 



special character 



OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 
.OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 
OpSymbol 



charac 
charac 
charac 
charac 
charac 
charac 
charac 
charac 
charac 
= chara> 
= chara 
= chara 
charac 
charac 
charac 
charac 
charac 
charac 



terCcolon3; 

terCRight Arrow3; 

terCLeftArrow]; 

terCSmallCircle3; 

terCperiod3; 

terCLeftParen]; 

terCRightParen3; 

terCLeftBracket3; 

terCRightBracket3; 

cterCsemicolon]; 

cterCquadrangle3; 

cterCspace3; 

terCcolon3; 

terCRightArrow3; 

terCLef tArrow3; 

terCLeftParen]; 

terCsemicolon3; 

terCLeftBracket3; 



{ 



reduction operator 



} 



RedTabCI 3. OpSymbol 
RedTabC23. OpSymbol 
RedTabC3 3. OpSymbol 
RedTabC43. OpSymbol 
RedTabC53. OpSymbol 
RedTabC63 . OpSymbo I 
RedTabC73. OpSymbol 
RedTabC73. Oplndex : 
RedTabC83. OpSymbo I 
RedTabC83. Oplndex : 
RedTabC93. OpSymbo I 
RedTabC93. Oplndex : 
RedTabC103. OpSymbo I 
RedTabCI 03. Oplndex 
RedTabC1 13. OpSymbo I 
RedTabCI 13. Op Index 
RedTabCI 23. OpSymbo I 
RedTabCI 23. Oplndex 
RedTabC133. OpSymbol 
RedTabC133. Oplndex : 
RedTabCI 43. OpSymbo I 
RedTabC143. Oplndex : 
RedTabC153. Oplndex : 
RedTabC163. OpSymbol 
RedTabC163. Oplndex : 
digitsCTwoSymboU : 
digitsCFourSymboU 
digitsCSi xSymbol] : 
digitsCEight Symbol] 
digitsCZeroSymbol] 
end { filluptables 



RedTabCI]. Oplndex := 2; 
RedTabC2]. Oplndex := 3; 
RedTabC3]. Oplndex := 4; 
RedTabC4]. Oplndex := 5; 

RedTabC53. Oplndex := 6; 
RedTabC63. Oplndex := 21; 



= characterCplus3; 
= characterCminus3; 
= characterCtimes]; 
= characterCdivide3; 
= characterCasterisk3; 
= characterCequals3; 
= characterCNotEquaU; 
■ 22; 

= characterCLessThne]; 
23; 

= characterCLessOrEqual]; 
■■ 24; 

:= characterCGreaterOrEqual]; 
= 25; 

:= characterCGreaterThan3; 
= 26; 

:= characterCAndSymboU; 
= 27; 

:= characterC0rSymbol3; 
= 28; 

:= characterCcei ling3; 

= 29; RedTabC153. OpSymbol := characterCf loor3; 
= 30; 

:= characterCLargeCi re le]; 
= 31; digitsCOneSymbol] 

digitsCThree Symbol] 
digitsCFi veSymbol] 

dig itsCSev en Symbol] 
digitsCNi ne Symbol] 



= 2 



4; 



= 6 



= 1 

= 3 
= 5 
= 7 
:= 9, 



= 0; 



rocedure PrintAPLStatement; 



var 

prefix, num: integer; 
index: integer; 

begin 

for index := 1 to_ LineLength do 
begin 

if APLstatementCindex] > 6000 
then 
begin 

prefix := APLstatementCindex] div 100; write(chr(pref ix) ); 
num := APLstatementCindex] - 100 * prefix; 
write(chr(num) ) 
end 
else wri te(chr(APLstatementC index] )) 
end ; 
writeln 
end { printaplstatement }; 



procedure SError(ErrorIndex : integer); 



var 

MsgCol: integer; 



begin 
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371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 

m 

441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 ' 



TokenError := true; 

for MsgCoL := 1 to MessageLength do 

write(ErrorMsgsCError Index, MsgCoL] ); 
writeln; PrintAPLStatement { echo statement to user }; 
for MsgCoL := 1 to_(position - 1) do writeC' '); 

writeln(chr(characterCUpArrow] )) { print pointer to user error }; 
end { error }; 



procedure SkipSpaces; 

begin 

whi Le (APLstatementCposition] = characterCspace]) and (position <= 
LineLength) do 
position := position + 1 

end { skipspaces } ; 



procedure Get APLstatement ; 



InputChar: char; 

Test ForPref ix : integer; 

FirstTry: Boolean; 

begin 

for LineLength := 1 t_o MaxINputLine do 

APLstatementCLineLength] := characterCspace] { blank out line }' 
LineLength := 0; FirstTry := true; position := 1; 
LineTooLong := false; 

APLstatementCInputAr raySi ze] := characterComega]; 
APLstatementCInputAr raySi ze - 1] := characterCspace] 

{ set end-of-line }; 
repeat 
begin 

if not FirstTry then getsegC input) { test for *cr* only }; 
FirstTry := false; 

whi le ( not eoln(input)) and ( not LineTooLong) do 
if LineLength < MaxINputLine 
then 
begin 

LineLength := LineLength + 1; read(InputChar); 

{ The following code would be removed for non-CDC installations } 
Test ForPref ix := ord(InputChar) ; 

if (Test ForPref ix = prefixD ojr (Test ForPref ix = prefix2) 
then 
beg i n 

read(InputChar); 

APLstatementCLineLength] := 100 * Test ForPref ix + ord( 
InputChar); 
end 
else 



} 



APLstatementCLineLength] := ord(InputChar) 
end 
else LineTooLong := true 
end 
unt i I LineLength <> { reject null lines }; 
i f LineTooLong then SError(71) 
end { getapl statement }; 



function ItsADigit(TestChar: integer): Boolean; 



Digitlndex: APLcharSet; 
begin { test to see if input character is a digit } 
ItsADigit := false; 
for Digitlndex := OneSymbol to_ ZeroSymbol do 

if TestChar = characterCDigitlndex] then ItsADigit := true 
end T~ itsadigit }; 



function ItsALetter(TestChar : integer): Boolean; 



Letterlndex: APLcharSet; 

begin { test to see if input character is a letter } 

ItsALetter := false; 

for Letterlndex := asymbol to_ ZSymbol do 

if TestChar = characterCLetterlndex] then ItsALetter := true 
end { itsaletter }; 



function CharToNum(TestChar : integer): integer; 

var 

Digitlndex: APLcharSet; 

begin { chage a character to a number } 

for Digitlndex := OneSymbol to_ ZeroSymbol do 
Tf_ TestChar = characterCDigitlndex] 
then CharToNum := digitsCDigit Index] 
end { chartonum }; 



function NamesMatch(NameOne, NameToo: PackedSt ri ng) : Boolean; 



473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
$W 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 



var 

index: integer; 

begin { see if two names (identifiers) are the same } 

NamesMatch := true; 

for index := 1 to_ MaxVarNameLength do 

if NameOneC index] <> NameTooCindex] then NamesMatch := false 
end T~ namesmatch }; 



procedure TableLookUp(TestChar / , TableLength: integer; table: OpTable; 
var Tablelndex: integer); 

var 

index: integer; 

begin { check for membership in a given table } 

Tablelndex := 0; 

for index := 1 to TableLength d_£ 

if TestChar = tableCindex] .OpSymbol then Tablelndex := index 
end T~ tablelookup }; 



procedure ident if ier( var name: PackedSt ri ng; var ItsAnldenti f ier: 
Boolean); 

var 

NameLength: integer; 
NameTooLong: Boolean; 

begin 

ItsAnldentif ier := false; SkipSpaces; 
if ItsALetter (APLstatementCposi tion] ) 
then 
begin 

NameTooLong := false; ItsAnldenti f ier := true; 

for NameLength := 1 tp_ MaxVarNameLength do { blank out name } 

nameCNameLength] := characterCspace]; 
NameLength := 0; 

whi le (ItsALetter(APLstatementCposition])) or_ (ItsADigit( 
APLstatementCposition])) do 
begin { build identifier } 
NameLength := NameLength +1; 
if NameLength <= MaxVarNameLength 
then nameCNameLength] := APLstatementCposition] 
else NameTooLong := true; 
position := position + 1 
end; 
if NameTooLong 

then SError(70) { name greater than maxlength } 
end 
end 1 identifier }; 



procedure MakeNumber( var RealNumber: real; var ItsANumber: Boolean); 



sign, DigitCount: integer; 

begin { convert character input string to numerical representation } 
ItsANumber := false; SkipSpaces; sign := 1; DigitCount := 0; 
RealNumber := 0.0; 
if (APLstatementCposition] = characterCnegative]) o_r_ (ItsADigit( 

APLstatementCposition])) 
then 
beg i n 

ItsANumber := true; 

if APLstatementCposition] = characterCnegative] 
tFen begin sign := - 1; position := position + 1 end ; 
if not ItsADigit(APLstatementCposition]) 
then 
5^9 in 

SErrord) { digit must follow a minus sign }; 
ItsANumber := false; 
end 
else 

beg i n { form whole number portion } 

while ItsADigit(APLstatementCposition]) do 
begin 

RealNumber := 10.0 * RealNumber + CharToNum(APLstatement 

Cposit ion] ); 
position := position + 1 
end ; 
if APLstatementCposition] = characterCperiod] 
then 
begin 

position := position + 1; 
whi le ItsADigit(APLstatementCposition]) do 
begin { form fractional portion } 

RealNumber := RealNumber + CharToNum(APLstatementC 
position]) * exp((- 1.0 - DigitCount) * 2.3025851 
); 
DigitCount := DigitCount + 1; 
position := position + 1; 
end ; 
if DigitCount = then 
begin 

SError(2) { digits must follow a decimal point }; 
ItsANumber := false; 
end 
end ; 
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575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 
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588 

589 

590 
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594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

b59 

fefcO 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 



RealNumber := RealNumber * sign 
end 
end 

end { makeanumber }; 



function MonadicRef erence : Boolean; 



SubPosition, Tablelndex: integer; 

begin { see if operator is monadic within context of input line } 
MonadicReference := false; 
if NewTokenPt r" .NextToken" .noun = StatEnd 
then MonadicReference := true 
else 
begin 

SubPosition := position - 1; 

whi le (SubPosition > 0) and (APLstatementCSubPosi tion] = 
characterCspace] ) do 
SubPosition := SubPosition - 1 { get last non-blank }; 
if SubPosition <> then 

TableLookUp(APLstatementCSubPosition], 6, SpecTab, Tablelndex) 

if (Tablelndex <> 0) o_r (SubPosition = 0) 

then MonadicReference := true 

else 

i f (NewTokenPt r" .NextToken" .noun <> FormRes) and (NewTokenPtr 
".NextToken" .noun <> FormArg) and (NewTokenPt r" .NextToken 
.noun <> GlobVar) and (NewTokenPt r" .NextToken" .noun <> 
constant) and (APLstatementCSubPosi tion] <> characterC 
period]) and (APLstatementCSubPosition] <> characterC 
RightParen]) and (APLstatementCSubPosition] <> characterC 
RightBracket]) 
then MonadicReference := true 
end 
end 1 monadicreference }; 



procedure DyadicOpCheck; 

var 

Tablelndex: integer; 

begi n 

TableLookl)p(APLstatementCposition], 16, DOpTab, Tablelndex); 
if Tablelndex = 
then 
begin 

TableLookllp(APLstatementCposition], 12, CharTab, Tablelndex); 

if Tablelndex = 

then 

vf_ APLstatementCposi tion] = characterCSouthCap] 
then 
begin 

OldTokenPtr := SaveTokenPt r; dispose(NewTokenPt r); 
NewTokenPtr := SaveTokenPt r; position := LineLength + 1; 
end { this was a comment - ignore remainder of line } 
e Ise SError(4) { invalid character encountered } 
else 

begin { special character encountered } 
NewTokenPt r" .noun := SpecOper; 
NewTokenPt r" .Charlndx := Tablelndex 
end 
end 
else 

i f MonadicReference 

then SError(74) { monadic reference to dyadic operator } 

else 

begin { operator is dyadic } 
NewTokenPt r* .noun := DyadOper; 
NewTokenPt r" .DOpIndx := Tablelndex 
end 
end { dyadicopcheck }; 



procedure CheckOtherTables; 

var 

Tablelndex: integer; 
Chklndex: integer; 



function NextNonBlank: integer; 

begin 

Chklndex := position + 1; 

while (Chklndex < LineLength) and (APLstatementCChklndex] 
cFaracterCspace] ) do 
Chklndex := Chklndex + 1; 
NextNonBlank := APLstatementCChklndex]; 
end { nextnonblank }; 



beg in { checkothertables } 

if NextNonBlank = characterCForwardSlash] 
then 
begin 

TableLookUp(APLstatementCposition] / 16, RedTab, Tablelndex); 

if Tablelndex = 

tTTen SError(72) { invalid reduction operator } 



676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 procedure TryToGetANumber; 

703 

var 

FTumberCount : integer; 
RealNumber: real; 
ItsANumber: Boolean; 



else 

TT not MonadicReference 

tn" en SError(73) { dyadic reduction reference } 

else 

begin { operator is valid reduction operator } 
NewTokenPtr*. noun := ReductOper; 
NewTokenPtr*. Red Indx := Tablelndex; 
end ; 
position := Chklndex + 1; 
end 
else 
begin 

TableLookl)p(APLstatementCposition], 9, MOpTab, Tablelndex); 

if Tablelndex = then DyadicOpCheck 

else 

if not MonadicReference then DyadicOpCheck 
else 

beg in { operator is monadic } 
NewTokenPt r" .noun := MonadOper; 
NewTokenPt r~ .Monlndex := Tablelndex; 
end ; 
position := position + 1; 
end 
end { checkothertables }; 



704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
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755 
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758 
759 
760 
761 
762 
763 
764 
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766 
767 
768 
769 
770 
773 
774 
775 
776 
777 
778 



Make Number (Re a I Number, ItsANumber) ; 
then CheckOtherTables 



begin 

NumberCount := 0; 
if not ItsANumber 
else 

begin { store values in value table } 
new(NewValTabLi nk); 

NewValTabLink". NextValTabLink := OldVa ITabLi nk; 
OldValTabLink := NewValTabLi nk; 
NewValTabLink" .ForwardOrder := true; 

j_f_ FunctionMode then NewValTabLi nk" . In termed Re suit := false 
else NewValTabLi nk* . In termed Re suit := true; 
switch := true; 
whi le ItsANumber do 
begin 

NumberCount := NumberCount + 1; new(NewValues) ; 
if switch 
then 
beg i n 

switch := false; 

NewValTabLi nk" .Fi rstValue := NewValues 
end 
else NewValPtr* .Next Value := NewValues; 

NewValues" .RealVa I := RealNumber; NewValPtr := NewValues; 
Make Number (Re a I Number, ItsANumber) 
end; 
NewValues" .NextValue := ni I ; 
if NumberCount > 1 



then 
begin 

NewValTabLink 
new(NewDim); 



dimensions := 1 { number is a vector 
NewVa ITabLi nk" . Fi rstDimen := NewDim; 

NewDim" .d imenlength := NumberCount; 

NewDim" .NextDimen := nil 



end 
else 
begin 

NewValTabLink" 
NewValTabLink* 
end ; 
NewTokenPtr* .noun 



.dimensions 
. Fi rstDimen 



:= constant; 



= { 
= nil 



number is a scalar 



NewTokenPtr".ValTabPtr := NewValTabLink; 
end 
{ trytogetanumber }; 



function NameInVarTable(name: PackedSt ring; var_ VarPointer : 
VarTabPtrType; TestFuncPtr: PtrFuncTab): Boolean; 

var 

found: Boolean; 

begin 

found := false; VarPointer := OldVarTabPt r; 
whi le (VarPointer <> ni I) and ( not found) do 
begin 

if (NamesMatch(name, VarPointer" .VarName) ) and (VarPointer". 

FuncTabPtr = TestFuncPtr) { test for global var } 
then found := true 

else VarPointer := VarPointer" .NextVarTabPt r 
end*; 
NamelnVarTable := found; 
end { nameinvartable }; 

procedure AddNameToVa rTable(name: PackedSt ri ng) ; 

begin { new variable name encountered } 

new(NewVarTabPtr); NewVarTabPt r" .NextVa rTabPt r := OldVarTabPt r; 
OldVarTabPtr := NewVarTabPt r; NewVarTabPt r" .VarName := name; 
NewVarTabPt r".ValTabPtr := nil; 
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779 vf_ NewTokenPtr <> ni_l_ 

780 then 

781 if (NewTokenPt r* .noun = FormRes) or_ (NewTokenPt r" .noun = FormArg 

782 ~ ) 

783 then NewVarTabPt r" .FuncTabPt r := NewFuncTabPt r 

784 else NewVarTabPt r" . FuncTabPt r := nil 

785 end { addnametovartable }; 
786 

787 

788 f unct ion Funct ion A I readyDef ined( var NewFuncName: PackedSt ri ng; var 



Funclndex: PtrFuncTab): Boolean; 

var 

found: Boolean; 

begin 

found := false; Funclndex := OldFuncTabPt r; 
whi le (Funclndex <> ni I ) and ( not found) and (NewFuncTabPt r <> 
ni I ) do 
if NamesMatch( Funclndex* .FuncName, NewFuncName) 
then found := true 

else Funclndex := Funclndex" .NextFuncTabPt r; 
Funct ionAl readyDef ined := found 
end { functionalreeadydefined }; 



789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

804 

803 

805 procedure MakeTokenLi nrk; 

806 

807 begin 

808 new(NewTokenPt r); NewTokenPt r" .NextToken := OldTokenPtr; 

809 SaveTokenPtr := OldTokenPtr; OldTokenPtr := NewTokenPtr 

810 end { maketokenl ink }; 
811 

812 

813 procedure ProcessFunt ionHeader; 

814 

var 

DummyPtr: "FuncTab; 

namel, name2, name3: PackedSt ri ng; 

It sAnldenti f ier, FuncHeadEr ror : Boolean; 

AriTylndex: integer; 



815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 



begin 

FuncHeadError := false; FunctionMode := true; 
FuncStatements := - 1; 
i f Fi rst Function 

Then begin FuncStatements := 0; Fi rst Funct ion := false; end ; 
AriTylndex := 1; position := position + 1; 
ident i f ier(name1 , ItsAnldentifier); 
if not ItsAnldentifier 
then 
begin 

SError(7) { unrecognizable function Argument name }/ 
FunctionMode := false { exit function mode }; 
FuncHeadError := true 
end 
else 
begin 

new(NewFuncTabPt r) ; SkipSpaces; 
if APLstatementCposi tionl = characterCLef t Arrow] 
then 
begin 

NewFuncTabPt r" .result := true { explicit result }; 
NewFuncTabPt r" .ResultName := namel; 
position := position + 1; 
identifier(name1, ItsAnldentifier); 
i f not ItsAnldentifier then 
begin 

SError(6) 

{ unrecognizable name to right of explicit res }; 
FuncHeadError := true 
end 
end 
e Ise NewFuncTabPt r" .result := false { no explicit result }; 
SkipSpaces; 

i f (position <= LineLength) and ( not FuncHeadError) 
then 

ident i f ier(name2 / ItsAnldentifier); 
if not ItsAnldentifier 
then 
begin 

SError(7) { invalid function Argument name }; 
FuncHeadError := true 
end 
else AriTylndex := 2 
end ; 
SkipSpaces; 

if (position <= LineLength) and ( not FuncHeadError) 
then 
begin 

ident if ier(name3, ItsAnldentifier); 
i f not ItsAnldentifier 
then 
begin 

SError(9) { invalid function right argument name }; 
FuncHeadError := true 
end 
else AriTylndex := 3 
end; 
SkipSpaces; 
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if (position <- LineLength) and ( not FuncHeadError) then 
beg in 

SError(3) 

{ extraneous characters to right of function header 
FuncHeadError := true 
end ; 
case AriTylndex of 
1: 

begin 

NewFuncTabPt r" .ari ty := niladic; 
NewFuncTabPt r" . FuncName := namel; 
end ; 
2: 

begin 

NewFuncTabPt r" .ari ty := monadic; 
NewFuncTabPt r" . FuncName := namel; 
NewFuncTabPt r" .Right Arg := name2; 
AddNameToVarTable(name2); 

NewVarTabPt r" .FuncTabPt r := NewFuncTabPt r; 
end ; 
3: 

begin 

NewFuncTabPt r" .ari ty := dyadic; 
NewFuncTabPt r" .Left Arg := namel; 
NewFuncTabPt r" . FuncName := name2; 
NewFuncTabPt r" .Right Arg := name3; 
AddNameToVarTable( namel); 

NewVarTabPt r" . FuncTabPt r := NewFuncTabPt r; 
AddNameToVarTable(name3); 

NewVarTabPtr" .FuncTabPt r := NewFuncTabPt r; 
end 
end 1 case }; 

if Funct ionAl ready Defined (New FuncTabPt r" . FuncName, Dummy Pt r) 
tTHen 
begin 

SError(5) { function already defined }; 
FuncHeadError := true; 
end ; 
if FuncHeadError then 
begin 

dispose(NewFuncTabPt r) { header no good }; 
FunctionMode := false { exit function node }; 
NewFuncTabPt r := OldFuncTabPt r; 
end 
end 
end 1 processfuncheader }; 



procedure DestroyStatement; 



DlimTokenPtr: "TokenTable; 
AuxSubrTabPtr: "SubrTab; 

begin 

if SubrTabPtr <> ni I 
then 
begin 

whi le SubrTabPtr" .LastSubrPtr <> ni I do 
begin 

AuxSubrTabPtr := SubrTabPtr; 
SubrTabPtr := SubrTabPt r" .LastSubrPt r; 
dispose(AuxSubrTabPt r); 
end ; 
dispose (SubrTabPtr); 
end ; 
DumTokenPtr := OldTokenPtr; 
whi le DumTokenPtr <> HoldTokenPtr do 
begin 

OldTokenPtr := OldTokenPt r" .NextToken; dispose(DumTokenPt r) ; 
DumTokenPtr := OldTokenPtr 
end; 
NewTokenPtr := HoldTokenPtr; 
OldTokenPtr := HoldTokenPtr 

{ return pointer to end of last good line } 
end { destroystatement }; 



procedure ReverseLinkLi st ( var ArgPtr: TypeValTabPt r) ; 

var 

Fold, TemPtr: "values; 

begin { reverselinklist } 

ValPtr := ArgPtr". FirstValue; TemPtr := Va IPt r" .NextValue; 
whi le TemPtr <> ni I do 
begin 

hold := TemPtr". NextValue; TemPtr" .NextVa lue := ValPtr; 
ValPtr := TemPtr; TemPtr := hold 
end; 
ArgPtr" .Fi rstValue" .NextValue := ni I ; 
ArgPtr". FirstValue := ValPtr; 
if ArgPtr" .ForwardOrder 
then ArgPtr". ForwardOrder := false 

else ArgPtr". ForwardOrder := true { toggle list order switch } 
end { reverselinklist }; 

procedure parser( var TokenTabPtr: TokenPtr; var PtrToDa: TypeValTabPt r); 
var 
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VFuncHold: "vfunc { hold while searching }; 

AuxOperTabPtr: "OperandTab; 

AuxSubrTabPtr: "SubrTab; 

AuxRParmPtr: "FParmTab; 

AuxLParmPtr: "FParmTab; 

ValidExp: Boolean { true if valid expression }; 

cnt: integer; 

npv: integer { number of indices }; 

assign, assignl: Boolean { assign. in progress }; 

DoneSuccessor: Boolean; 

DoneParse: Boolean; 



procedure errorCEr rorlndex : integer); 

var 

MsgCol: integer; 

begin 

writeC *, Errorlndex, ' '); 

for MsgCol := 1 to MessageLength do 
wr i te(Er rorMsgsCEr rorlndex, MsgCol] ); 

writeln; goto 100 f return to scanner }; 
end ( error j ; 



procedure release; 

begin { releaseopertab } 
OperTabPtr := PtrLastOper; 
whi Le OperTabPt r" .LastOper <> ni I do 
begin 

AuxOperTabPtr := OperTabPtr; 
OperTabPtr := OperTabPt r" .LastOper; 
end; 
end I releaseopertab }; 



dispose(AuxOperTabPtr); 



procedure expression(var ValidExp: Boolean); 



procedure ReturnToCa 1 1 ingSubr; 

var 

NamePtr: "VarTab; 

begin { returntocal lingsubr } 
if SubrTabPtr". CalledSubr". result 
then 

begin { place explicit result in opertab } 

i f not NameInVarTable(SubrTabPtr". CalledSubr". ResultName, 

NamePtr, SubrTabPt r" .Ca I ledSubr) 
then error(H) { 'symbol not found' } 
else 
begin 

AuxOperTabPtr := OperTabPtr; new(0perTabPt r) ; 
OperTabPt r" .LastOper := AuxOperTabPtr; 
PtrLastOper := OperTabPtr; 
OperTabPt r'.OperPtr := NamePt r" .Va ITabPt r; 
end ; 
end ; 
{ return to calling function } 

VFuncPtr := SubrTabPt r" .StatemCal lingSubr; 

TokenTabPtr := SubrTabPt r" .TokenCa 11 ingSubr" .NextToken; 

if SubrTabPt r" .Ca UedSubr" .ari ty <> niladic 

then 

begin { monadic or dyadic } 

AuxRParmPtr := RParmPtr; RParmPtr := RParmPt r" .LastParm; 
dispose(Aux RParmPt r) ; 

i f SubrTabPt r* .Ca UedSubr" .ari ty = dyadic then 
begin { dyadic only } 
AuxLParmPtr := LParmPtr; 
LParmPtr := LParmPt r" .LastPa rm; 
end ; 
end ; 
AuxSubrTabPtr := SubrTabPtr; 
SubrTabPt r := SubrTabPt r" .LastSubrPt r; 
end { returntocallingsubr }; 



dispose (AuxLParmPtr); 



disposeCAuxSubrTabPt r) ; 



f unct ion SpecSymbol (sym : integer): Boolean; 



ValidSym: Boolean; 

begin { specsymbol } 
ValidSym := false; 
if TokenTabPt r" .noun = SpecOper 
then 

i f TokenTabPt r" .Charlndx = sym then 
begin 

hold := TokenTabPtr; 

TokenTabPtr := TokenTabPt r" .NextToken; ValidSym := true; 
end; 
SpecSymbol := ValidSym; 
end { specsymbol }; 



procedure CallSubr; 
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var 

PtrTo VarTab: 



beg 



.arity <> niladic 



{ callsubr } 

if SubrTabPtr". CalledSubr" 
then 
begin 

if not NamelnVarTableCSubrTabPt r". CalledSubr" .RightArg, 

PtrTo VarTab, SubrTabPt r" .Ca UedSubr) 
then error(32); 

if PtrToVarTab".FuncTabPtr <> SubrTabPt r~ .CalledSubr 
then error(32) { program logic error, variable name of }; 
{ function argument not found in symbol table } 
AuxRParmPtr := RParmPtr; new(RParmPt r); 
RParmPt r" .LastParm := AuxRParmPtr; 
PtrTo VarTab".DeferedVa ITabPt r := RParmPtr; 
if SubrTabPtr". CalledSubr". arity = dyadic 
then 

begin { if dyadic } 

if not NamelnVarTableCSubrTabPt r" .Cal ledSubr" .LeftArg, 

PtrTo VarTab, SubrTabPt r" .Ca UedSubr) 
then error(33); 

if PtrToVarTab'.FuncTabPtr <> SubrTabPt r" .CalledSubr 
then_ error (33) { same as error(32) }; 
AuxLParmPtr := LParmPtr; new(LParmPt r); 
LParmPt r" .LastParm := AuxLParmPtr; 
PtrToVarTab'.DeferedValTabPtr := LParmPtr; 
LParmPtr".PtrVal := OperTabPt r" .OperPt r; 
AuxOperTabPtr := OperTabPtr; 
OperTabPtr := OperTabPt r" .LastOper; 
dispose(AuxOperTabPtr); PtrLastOper := OperTabPt r; 
end ; 
RParmPtr".PtrVal := OperTabPt r" .OperPt r; 
AuxOperTabPtr := OperTabPtr; 

OperTabPtr := OperTabPt r" .LastOper; dispose(AuxOperTabPt r) ; 
PtrLastOper := OperTabPtr; 
end ; 
TokenTabPtr := SubrTabPt r" .CalledSubr" .Fi rst Statement " .Next St mnt; 
VFuncPtr := SubrTabPt r" .CalledSubr" .Fi rstStatement; 
end t callsubr }; 



function FunctCall: Boolean; 



PtrToFuncTab: "FuncTab; 
NameOfFunc: PackedString; 
ValidFn: Boolean; 

begin { functcall } 
ValidFn := false; 
if TokenTabPt r" .noun = GlobVar 
then 
begin 

NameOfFunc := TokenTabPt r" .VarTabPtr" .VarName; 
if FunctionAlreadyDef ined(Name0f Func, PtrToFuncTab) 
then 
begin 

AuxSubrTabPtr := SubrTabPtr; new(SubrTabPt r) ; 
SubrTabPtr" .LastSubrPtr := AuxSubrTabPtr; 
SubrTabPtr". Cal ledSubr := PtrToFuncTab; 
SubrTabPt r" .TokenCal I ingSubr := TokenTabPtr; 
SubrTabPtr" .StatemCallingSubr := VFuncPtr; 
hold := TokenTabPtr; 

TokenTabPtr := TokenTabPt r" .NextToken; ValidFn := true; 
end ; 
end ; 
FunctCall := ValidFn; 
end { functcall }; 



procedure NunWrite(RealNo: real); 

var 

prefix, root: integer; 
SigDig, ColCnt: integer; 

begin { output a number } 
iT~RealNo >= 0.0 

Th~en writeC ', RealNo: 12: 2) { output positive number 
else" 

begin ( output negative number } 
ReTlNo := - 1.0 * RealNo; 

SigDig := trunc( (In(RealNo) ) / (lndO.0))); 
for ColCnt := 1 to^(7 - SigDig) do writeC '); 
if characterCnegative] < 6000 
then write(chr(characterCnegative])) 
else 
begin 

prefix := characterCnegative] div 100; 
root := characterCnegativeD - (100 * prefix); 
write(chr (prefix) , chr(root)); 
end ; 
SigDig := SigDig + 5; wri te(RealNo: SigDig: 2); 
end 
end 1 numwrite }; 



procedure OutPutVal; 
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var 

cnt : integer; 

AuxValuesPtr: "values; 

DimHold, dimenl, dimen2, dimen3: integer; 

OutCntl, 0utCnt2, 0utCnt3: integer; 

idimens: integer; 

begin { outputval } 

cnt := 0; writeln; writeln; 
if not OperTabPtr". OperPt r" .ForwardOrder 
then ReverseLinkLi st (OperTabPt r" .OperPt r); 
AuxValuesPtr := OperTabPt r" .OperPt r" .Fi rstValue; 
idimens := OperTabPtr" .OperPt r" .dimensions; 
if not (idimens j_n CO .. 33) 
tFen 
beg i n 

for ColCnt := 1 to MessageLength do 

write(ErrorMsgsC60, ColCnt]); 
writeln; 
end 
else 

if AuxValuesPtr = ni I 
then 
begin 

for ColCnt := 1 to_ MessageLength do 

write(ErrorMsgsC61, ColCnt]); 
writeln; 
end 
else 

i f idimens = 

then begin NunWrite(AuxVa luesPt r" . RealVa I); writeln; end 
else 
begin 

dimenl := OperTabPt r" .OperPt r" . Fi rstDimen" .dimenlength; 

i f idimens >= 2 

then 

dimen2 := OperTabPt r" .OperPt r" . Fi rstDimen" .NextDimen 
" .d imenlength 
else dimen2 := 1 ; 
i f idimens = 3 
then 

dimen3 := OperTabPt r" . OperPt r" . Fi rstDi men" .NextDi men 
" .NextDimen" .dimenlength 
else dimen3 := 1 ; 
if idimens = 3 then 

begin { rotate dimensions } 

DimHold := dimenl; dimenl := dimen2; 
dimen2 := dimen3; dimen3 := DimHold; 
end ; 
for 0utCnt3 := 1 to dimen3 do 
beg i n 

for 0utCnt2 := 1 to_ dimenl do 
begin 

for OutCntl := 1 t_o dimen2 do 
begin 

cnt := cnt + 1; 

jj_ (((cnt - 1) mod 5) = 0) and (cnt <> 1) 
then begin writeln; write( ' '); end ; 
NunWrite(AuxValuesPtr".RealVal); 
AuxValuesPtr := AuxVa luesPt r". NextVa lue; 
end ; 
i f idimens >= 2 

then begin writeln; cnt := 0; end ; 
end ; 
writeln; writeln; 
end ; 
{ writeln; } 
end ; 
end { outputval }; 



function variable: Boolean; 



var 

globOrDummy: Boolean { gord 
PassedAdj: "VarTab { k }; 
rarg: Boolean { rd } ; 
ParmPtr: "ValTab { pt }; 
ValidVar: Boolean; 
Validlndex: Boolean; 



procedure InputVal; 

var 

AuxPtrToDa: "ValTab; 
AuxValuesPtr: "values; 
Aux2ValuesPt r: "values; 
RealV: real; 
boolv: Boolean; 
ccntr, cnt: integer; 
AuxDimenFoPt r : "Dimenlnfo; 

begin { inputval } 

cnt := 0; position := 1; AuxPtrToDa := PtrToDa; 

new(PtrToDa); AuxPt rToDa" .NextVa ITabLi nk := PtrToDa; 

AuxOperTabPt r := OperTabPtr; new(0perTabPt r) ; 

PtrLastOper := OperTabPtr; 

OperTabPt r" .LastOper := AuxOperTabPt r; 

OperTabPt r". OperPt r := PtrToDa; new(Aux2Va LuesPtr); 

PtrToDa". Fi rstValue := Aux2ValuesPt r; 
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for ccntr := 1 to MessageLength do write(ErrorMsgsi63, ccntrj); 
writeln; readln; Get APLstatement ; 
repeat 
MakeNumber(RealV / boolv); SkipSpaces; 
if not boolv 
then 
begin 

for ColCnt := 1 to_ MessageLength do 

write(ErrorMsgsH62, ColCnt]); 
writeln; position := 1; cnt := 0; 
Aux2ValuesPt r := OperTabPt r" .OperPt r" .Fi rstValue; 
for ccntr := 1 to MessageLength do 

write(Er rorMsgsC63, ccntr]); 
writeln; readln; GetAPLstatement 
end 
else 
begin 

cnt := cnt + 1; AuxValuesPtr := Aux2ValuesPt r; 
new(Aux2ValuesPtr); AuxValuesPt r" .RealVa I := RealV; 
AuxValuesPtr" .NextValue := Aux2ValuesPt r; 
end ; 
unti I position > LineLength; 

dispose(Aux2ValuesPt r) ; AuxVa luesPt r". NextVa lue := nil; 
PtrToDa" . IntermedResult := false; PtrToDa" .dimensions :=1; 
Pt rToDa" .ForwardOrder := true; 

Pt rToDa" .NextValTabLink := nil ; new(AuxDimenFoPt r); 
Pt rToDa".Fi rstDimen := AuxDimenFoPt r; 
AuxDimenFoPt r". dimenlength := cnt; 
AuxDimenFoPt r" .NextDimen := nil ; 
end { inputval } ; 



procedure GetArrayPosition( var ValuesPtr: TypeVa luesPt r); 

var 

indice: real; 
kcnt: integer; 
si: integer; 
AuxDimenFoPt r: "Dimenlnfo; 

begin { getarrayposition } 

if npv <> ParmPtr" .dimensions then error(35); 
T~ 'wrong num. of subscripts' } 
si := 0; AuxOperTabPtr := OperTabPtr; 
AuxDimenFoPtr := ParmPtr" . Fi rstDimen; 
for kcnt := 1 to npv do 
beg i n 

if AuxOperTabPtr". OperPt r". dimensions <> 

then error(35) { 'non-sealer indices' }; 

indice := AuxOperTabPt r" .OperPt r" .Fi rstVa lue" .RealVa I; 

if indice - 1.0 * trunc(indice) <> 0.0 

then error(37) { 'non-integer indices' }; 

if not (trunc(indice) vn_ C1 .. AuxDimenFoPt r" .dimenlength 
]) 

then error(38) { 'out of range index' }; 

si := (si * AuxDimenFoPtr". dimenlength) + trunc(indice) - 

1; 

AuxOperTabPtr := AuxOperTabPt r" .LastOper; 
dispose(OperTabPtr); OperTabPtr := AuxOperTabPtr; 
AuxDimenFoPtr := AuxDimenFoPt r" .NextDimen; 
end ; 
ValuesPtr := ParmPtr" .Fi rstValue; 
while si <> do { determine which value in } 

pt[sval(sv) ] [sval( sv-1 ) ] . . . [sval( sv-npv+1 ) ] } 



{ 

{ := sval(sv-npv) 

begin ValuesPtr := ValuesPtr" .NextVa lue; 
end { getarrayposition }; 



si : = si - 1 ; end; 



procedure LinkResults; 

var 

PtrToValues: "values; 

begin { linkresults } 
if npv = 
then 
beg i n 

if not globOrDummy 
then 

if rarg then RParmPt r" .Pt rVal := OperTabPt r" .OperPt r 
else LParmPt r" .PtrVal := OperTabPt r" .OperPt r 
else PassedAdj" .ValTabPtr := OperTabPt r" .OperPt r 
end 
else 
Hegnn 

rf_ globOrDummy then ParmPtr := PassedAdj" .ValTabPt r 
else ParmPtr := PassedAdj" .DeferedValTabPtr" .PtrVal; 
GetArrayPosition(PtrToValues); 
if OperTabPtr". OperPtr". dimensions <> 
then error(36) ( 'assigned expression not 
Pt rToVa I ues " . Rea I Va I := OperTabPt r" .OperPt r 
.RealVa I; 
end ; 
AuxOperTabPtr := OperTabPtr; 

OperTabPtr := OperTabPt r". LastOper; dispose(AuxOperTabPt r); 
PtrLastOper := OperTabPtr; 
end { linkresults }; 



procedure StackPointers; 



scalar' }; 
.Fi rstValue 
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var 

AuxPtrToDa: "ValTab; 

PtrToValues, AuxVaLuesPt r: "values; 

begin { stackpointers } 

if npv = 
tTTen 
begin 

AuxOperTabPtr := OperTabPtr; new(0perTabPt r) ; 

0perTabPtr~.Last0per := AuxOperTabPtr; 

OperTabPtr". OperPt r := ParmPtr; 

PtrLastOper := OperTabPtr 
end 
else 
begin 

AuxPtrToDa := PtrToDa; new(Pt rToDa) ; 

PtrToDa". NextValTabLink := AuxPtrToDa; 

PtrToDa" .IntermedResult := true; 

PtrToDa ".dimensions := 0; PtrToDa" ,Fi rstDimen := ni I ; 

PtrToDa" .ForwardOrder := true; new(AuxValuesPt r) ; 

PtrToDa". Fi rstValue := AuxVaLuesPt r; 

Get Ar rayPosit ion (PtrTo Values) ; 

PtrToDa". Fi rstValue" .RealVal := Pt rToVa lues" .RealVal; 

PtrToDa". Fi rstValue". NextValue := ni I ; 

AuxOperTabPtr := OperTabPtr; new(0perTabPt r) ; 

OperTabPtr". LastOper := AuxOperTabPtr; 

0perTabPtr".0perPtr := PtrToDa; 

PtrLastOper := OperTabPtr; 
end ; 
end { stackpointers }; 



function SimpleVariable: Boolean; 

var 

ValidSv: Boolean; 

begin { simplevariable } 

ValidSv := false; rarg := false; globOrDummy := false; 
if assign 
then 
beg i n 

if (TokenTabPtr".noun = FormRes) or_ (TokenTabPt r" .noun = 

GlobVar) 
then 

begin 

globOrDummy := true; 
PassedAdj := TokenTabPt r" .VarTabPt r; 
hold := TokenTabPtr; 

TokenTabPt r := TokenTabPt r" .NextToken; 
ValidSv := true 
end 
else 

if TokenTabPt r" .noun = FormArg 
then 
begin 

if NamesMatch (TokenTabPt r" .VarTabPt r" . FuncTabPt r" . 

LeftArg, TokenTabPt r" .VarTabPt r" .VarName) 
then rarg := true; 

PassedAdj := TokenTabPt r" .VarTabPt r 
end 
end 
else 
begin 

i f (TokenTabPt r" .noun = FormRes) or (TokenTabPt r" .noun = 

GlobVar) 
then 
beg i n 

ParmPtr := TokenTabPt r* .VarTabPt r" .Va ITabPt r; 
if ParmPtr <> ni I then 
begin 

hold := TokenTabPtr; 

TokenTabPtr := TokenTabPt r" .NextToken; 
ValidSv := true 
end 
end 
else 
begin 

i f TokenTabPt r" .noun = FormArg 
then 
begin 

if NamesMatch(TokenTabPtr".VarTabPtr" .FuncTabPtr 

.LeftArg, TokenTabPt r" .VarTabPt r" .VarName) 
then ParmPtr := LParmPt r" .Pt rVa I 
else ParmPtr := RParmPt r" .Pt rVa I; 
hold := TokenTabPtr; 

TokenTabPtr := TokenTabPt r" .NextToken; 
ValidSv := true; 
end ; 
end ; 
end ; 
SimpleVariable := ValidSv; 
end { simple variable }; 



procedure index (var ValidI: Boolean); 



var 

ValidEI, ValidE2: Boolean; 
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begin { index } 

ValidI := false; expression(ValidEl ); 
vf_ ValidEI 
then 
begin 

npv := 1 { no. of index expressions }; 
whi le SpecSymbol(XSemicolon) do 
begin 

npv := npv + 1; expression(Val idE2); 
J_f not^ ValidE2 t_hen error (39); 
{ 'invalid index expression' } 
end ; 
ValidI := true; 
end ; 
end { index } ; 



begin { variable } 

ValidVar := false; npv := 0; 

i f not assign 

then 

if SpecSymbol(XQuadSym) 

then begin InputVal; ValidVar := true end 
else 
begin 

if SpecSymbol(XRightBracket) 
then 
begin 

index(Va lidlndex) ; 

if ( not Validlndex) or ( not SpecSymboKXLef tBracket) ) 
^ en error(34) { invalid index expression }; 
end ; 
if SimpleVariable 

then begin StackPointers; ValidVar := true end 
end 
else 

if SpecSymbol(XQuadSym) 

then begin OutPutVal; ValidVar := true end 
else 
begin 

if SpecSymbol(XRightBracket) 
then 
begin 

index(Va I idlndex) ; 

i f ( not Validlndex) o_r ( not SpecSymbol(XLeftBracket) ) 
then error(34) { invalid index expression }; 
end; 
i f SimpleVariable 

then begin LinkResults; ValidVar := true; end; 
end ; 
variable := ValidVar; 
end { variable } ; 



procedure primary( var valid: Boolean) { recursive entry 
var 

ValidX: Boolean; 
assign: Boolean; 



function vector: Boolean; 

var 

vec: Boolean; 

begin { vector } 
vec := false; 

if TokenTabPt r" .noun = constant 
TFTen 
begin 

AuxOperTabPtr := OperTabPtr; new(0perTabPt r) ; 
PtrLastOper := OperTabPtr; 
OperTabPtr" .LastOper := AuxOperTabPtr; 
OperTabPtr". OperPtr := TokenTabPt r" .ValTabPt r; 
hold := TokenTabPtr; 

TokenTabPtr := TokenTabPt r" .NextToken; vec := true; 
end ; 
vector := vec; 
end { vector }; 



begin { primary } 
val id := true; 
if not vector 
then 
begin 

assign := false; 
if not variable 
then 

7F SpecSymbol(XRightPar) 
then 
beg i n 

expression(ValidX); 

i_f_ not_ ValidX 

then error(14) { 'non-valid exp within parens' } 

else 

if not SpecSymbol(XLeftPar) 
then 

error(15) 

{ 'right paren not balanced with left paren' 
else valid := true 
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end 
else 

if not FunctCall then valid := false 
else begin CallSubr; primary(val id) ; end ; 



1588 
1589 
1 59C 
1591 

1592 end; 

1593 end 1 primary }; 
1594 

1595 

1596 procedure expression { recursive }; 

1597 

var 

DoneExp / ValidPri, ValidFunc, ValidAssn: Boolean; 

code: integer; 
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1640 

var 

ValidD: Boolean; 
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procedure assignment ( var valida: Boolean); 

begin { assignment } 
valida := false; 
if SpecSymbol(XLeftArrow) 
then 
beg i n 

assign := true; assignl := true; 
i_f_ variable then valida := true 

else error(8) I Fesult of an assn not a valid variable 
valida := true; assign := false; 
end ; 
end 1 assignment }; 



function mop: Boolean; 

var 

ValidM: Boolean; 

begin { mop } 
ValidM := false; 
if (TokenTabPt r". noun = MonadOper) o_r (TokenTabPt r" .noun = 

ReductOper) 
then 
beg i n 

if TokenTabPtr". noun = MonadOper 

tfh~en code := MOpTabCTokenTabPt r" .MonlndexD .Op Index 
else code := RedTabCTokenTabPt r'.Redlndx] .Oplndex; 
hold := TokenTabPtr; 

TokenTabPtr := TokenTabPt r" .NextToken; ValidM := true; 
end; 
mop := ValidM; 
end { mop }; 



begin { dop } 
ValidD := false; 
if TokenTabPt r". noun = DyadOper 
then 
begin 

code := DOpTabCTokenTabPt r~.D0pIndx3 .Oplndex; 

hold := TokenTabPtr; 

TokenTabPtr := TokenTabPt r" .NextToken; 

i_f_ (code > 80) then ValidD := true 

else 

i f TokenTabPt r* .noun = SpecOper 
then 

if Sp.ecSymbol(XPeriod) 
then 
begin 

if TokenTabPtr". noun = DyadOper 
then 
begin 

rf D0pTabCTokenTabPtr".D0pIndx3. Oplndex <= 80 
then 
begin 

code := code + (100 * DOpTabCTokenTabPt r* . 

DOpIndxl. Oplndex); 
hold := TokenTabPt r; 

TokenTabPtr := TokenTabPt r* .NextToken; 
ValidD := true 
end 
else error(27) { 'invalid inner product exp 
end 
e Ise 

i f TokenTabPt r" .noun = SpecOper 
then 
begin 

j_f_ SpecSymbol(XLittleCircle) 
then 

begin code := 10 * code; ValidD := true 
end 
else error(26) { 'inval outer prod exp' } 
end 
else error(26) { same as above } 
end 
else ValidD := true 
else ValidD := true; 
end ; 
dop := ValidD; 
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end { dop } ; 

function It sBoolean( test : real): Boolean; 

beg in 

if (test = 1.0) or (test = 0.0) then ItsBoolean := true 

eTse ItsBoolean := false 

end ( itsboolean }; 



procedure DyadComp( var SFloat: real; value: real; code: integer); 

1 compute result of dyadic operation } 

beg i n 

case code of 

{ left codes - reduction ops ' right codes - dyadic ops } 

2, 52: SFloat := value + SFloat { addition } ; 

3, 53: SFloat := value - SFloat { subtraction }; 

4, 54: SFloat := value * SFloat { multiplication }; 

5, 55: 

vf_ SFloat = 0.0 

then error(20) { attempted division by zero } 

else SFloat := value / SFloat { division }; 

6, 56: 

if value > 0.0 
then 

SFloat := exp(SFloat * In(value)) 
{ number raised to a power } 
else SFloat := 1.0./ (exp(SFloat * ln(abs(value) ) )); 

21, 71: 

i f value = SFloat { equality } then SFloat := 1.0 
else SFloat := 0.0; 

22, 72: 

i f value <> SFloat { inequality } then SFloat := 1.0 
else SFloat := 0.0; 

23, 73: 

if value < SFloat { less than } then SFloat := 1.0 
else SFloat := 0.0; 

24, 74: 

if value <= SFloat { less than or equal to } 

then SFloat := 1.0 

else SFloat := 0.0; 

25, 75: 

i f value >= SFloat { greater than or equal to } 

then SFloat := 1 .0 

else SFloat := 0.0; 
267T6": 

if value > SFloat { greater than } then SFloat := 1.0 

else SFloat := 0.0; 

27, 77: 

i f (ItsBoolean(value) ) and (ItsBoolean(SFloat) ) 
then 

2± (value = 1.0) and (SFloat = 1.0) { and } 

then SFloat := 1 .0 

else SFloat := 0.0 
else error(19) { va lue not boolean }; 

28, 78: 

if (ItsBoolean(value)) and (ItsBoolean(SFloat) ) 
then 

j_f (value = 1.0) or (SFloat = 1.0) { or } 
then SFloat := 1.0 
else SFloat := 0.0 
else error(19) { value not boolean }; 
29: 

i_f_ value > SFloat { maximum or ceiling } 
then SFloat := value; 
30: 

if value < SFloat { minimum or floor } 
then SFloat := value; 
31: 

vf_ (value * SFloat) < 0.0 

then error(50) { number and base of different sign } 

else 

SFloat := (ln(abs(SFloat))) / ( ln(abs(value) ) ) 
{ log to a base } 
end { case } 
end { dyadcomp }; 



procedure IndexGenerator(arg : TypeValTabPt r) ; 
{ monadic iota operator } 



iotalndex, TopValue: integer; 

begin 

if arg~ .dimensions <> 

then error(21) { argument not a scalar } 

else 

rf arg~.Fi rstVa lue" .RealVa I < 0.0 

then error(22) { argument is negative } 

else 

if (arg~ .Fi rstValue" .RealVal) - (1.0 * trunc(arg". 

FirstValue'.RealVaD) <> 0.0 
then error(23) { argument is not an integer } 
else 
begin 

new(NewValTabLi nk); 
OldValTabLink~.NextValTabl_ink := NewValTabLi nk; 
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NewVaLTabLink". NextValTabLink := nil ; 
NewVaLTabLink" . ForwardOrder := true; 
NewVaLTabLink" . IntermedResult := true; 
NewVaLTabLink". dimensions := 1 { result is a vector }; 
new(NewDim); NewValTabLi nk" .Fi rstDimen := NewDim; 
TopValue := trunc(arg" .Fi rstValue" .RealVat) 

{ last index generd }; 
NewDim" .dimenlength := TopValue; 
NewDim" .Next Di men := nil; iotalndex := 1; 
switch := true; 

whi le iotalndex <= TopValue do 
begin 

new(NewValues); NewValues" .RealVa I := iotalndex; 
i f switch 
then 
begin 

switch := false; 

NewVaLTabLink". Fi rstValue := NewValues 
end 
eJLse NewValPtr" .NextValue := NewValues; 
NewValPtr := NewValues; 
iotalndex := iotalndex + 1 
end ; 
if switch 
then 

NewVaLTabLink" .Fi rstValue := ni I 
{ result is vector of length } 
else NewValues" .Next Value := ni I 
end 
indexgenerator }; 



procedure ravelCarg: TypeValTabPt r) ; 
{ monadic comma operator } 

var 

elements: integer; 



newCNewVa ITabLi nk) ; 

OldValTabLink". NextValTabLink := NewVaLTabLink; 
NewVaLTabLink". NextValTabLi nk := nil ; 
NewVaLTabLink". IntermedResult := true; 
NewVaLTabLink". ForwardOrder := arg" .ForwardOrder; 
NewVaLTabLink". dimensions := 1 { result is a vector }; 
new(NewDim); NewVaLTabLink" .Fi rstDimen := NewDim; 
NewDim" .NextDimen := ni L ; switch := true; 
ValPtr := arg" .Fi rstValue; elements := 0; 
while ValPtr <> n_i_l_ do 

beg i n { duplicate values into result } 

new(NewValues); NewVa lues" .RealVa I := Va LPt r" . RealVa L; 
elements := elements + 1; 
if switch 
then 
begin 

switch := false; 

NewVaLTabLink". Fi rstValue := NewValues 
end 
else NewValPtr". NextValue := NewValues; 
NewValPtr := NewValues; ValPtr := ValPtr" .NextValue 
end; 
NewDim" .dimenlength := elements; 
vf_ switch then NewValTabLi nk" .Fi rstValue := nil 
else NewValues". NextValue := ni I 
end { ravel }; 



procedure ShapeOf(arg: TypeValTabPt r) ; 
{ monadic rho operator } 

begin 

new(NewValTabLink); 

OLdValTabLink".NextValTabLink := NewVaLTabLink; 

NewValTabLi nk" .NextValTabLi nk := nil; 

NewVaLTabLink". IntermedResult := true; 

NewVaLTabLink". ForwardOrder := true; 

NewVaLTabLink". dimensions := 1 { result is a vector }; 

new(NewDim); NewDim". dimenlength := arg" .dimensions; 

NewVaLTabLink". Fi rstDimen := NewDim; 

NewDim". NextDimen := nil; switch := true; 

DimPtr := arg".FirstDimen; 

whi Le DimPtr <> ni I do 

beg i n { argument dimensions become result values } 
new(NewValues) ; 

NewValues". RealVal := DimPt r" .dimenlength; 
i f swi tch 
then 
begin 

switch := false; 

NewVaLTabLink". Fi rstValue := NewValues 
end 
else NewVa LPt r" .NextVa lue := NewValues; 
NewValPtr := NewValues; DimPtr := DimPtr" .NextDimen 
end ; 
i f swi tch 
then 

NewVaLTabLink". FirstValue := nil 

{ result is a vector of length } 
else NewVa lues" .NextVa lue := ni L 
end { shapeof } ; 



1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1953 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 



procedure reduction(arg: TypeValTabPt r); 



counter, RowLength: integer; 
SFLoat: real; 



(arg" .Fi rstValue = ni I ) 



begin 

if (arg" .dimensions = 0) 
then 

error(24) { argument is a scalar or vector of length zero } 
else 

i f (arg" .dimensions = 1) and (arg". Fi rstDimen" .dimenlength 

= 1) 
then error(51) { argument is a vector of length one } 
else 
begin 

new (NewVaLTabLink); 

OldValTabLink". NextValTabLink := NewVaLTabLink; 
NewVaLTabLink". NextVa ITabLi nk := nil ; 
NewValTabLi nk" . IntermedResult := true; 
vf_ arg" .ForwardOrder then ReverseLinkLi st(arg); 
NewVa ITabLink" . ForwardOrder := false; 
NewVa ITabLi nk" .dimensions := arg" .dimensions - 1; 
DimPtr := arg" .Fi rstDimen; switch := true; 
whi le DimPt r" .NextDimen <> ni I do 
begin { build dimensions of result } 
new(NewDim); 
if swi tch 
then 
begin 

switch := false; 

NewVa ITabLink" . Fi rstDimen := NewDim 
end 
else NewPt r" .NextDimen := NewDim; 
NewDim" .dimenlength := DimPt r" .dimenlength; 
NewPtr := NewDim; DimPtr := DimPt r" .NextDimen 
end ; 
if swi tch 
then 

NewVaLTabLink" .Fi rstDimen := ni I 

{ arg is vector .resul t is scalar } 
e Lse NewDim" .NextDimen := nil; 
RowLength := DimPt r" .d imen length; 
ValPtr := arg" .Fi rstVa lue; switch := true; 
while ValPtr <> rrU do 

begin { perform reduction } 
SFloat := Va LPt r" .RealVa I 

{ sfloat gets last value in row }; 
ValPtr := Va LPt r" .NextValue; 
for counter := 2 to RowLength do 
begin 

DyadComp(SFloat / Va LPt r" .RealVa I, code); 
ValPtr := Va LPt r" .NextVa Lue 
end ; 
new(NewValues); NewVa Lues" .RealVa I := SFLoat; 
if swi tch 
then 
begin 

switch := false; 

NewVaLTabLink" .Fi rstValue := NewValues 
end 
else NewValPtr ".Next Value := NewValues; 
NewValPtr := NewValues 
end ; 
NewVa lues" .NextVa Lue : = nil 
end ; 
end { reduction } ; 



procedure monadic(arg: TypeVa ITabPt r; token: TokenPtr); 

{ operations with codes between 1 and 31 } 



noun = ReductOper then reduction(arg) 



beg i n 

i f token 
else 

vf_ code > 20 
then 

case code of_ 

21: IndexGenerator(arg); 
22: ShapeOf (arg); 
23: ravel(arg) 
end { case } 
else 
begin 

new( NewVa ITabLink); 

OldValTabLink".NextValTabLink := NewVaLTabLink; 
NewVa ITabLink". NextVa ITabLink := nil ; 
NewVaLTabLink". IntermedResult := true; 
NewVaLTabLink" .ForwardOrder := arg" .ForwardOrder; 
NewVaLTabLink". dimensions := arg" .dimensions; 
switch := true; DimPtr := arg" -Fi rstDimen; 
whi le DimPtr <> ni L do 

begin { duplicate dimensions of arg into result 
new(NewDim); 

NewDim" .dimenlength := DimPt r" .dimenlength; 
if switch 
then 
begin 

switch := false; 

NewValTabLi nk" . Fi rstDimen := NewDim 
end 
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else NewPt r" .NextDi men := NewDim; 
NewPtr := NewDim; DimPtr := DimPt r" .NextDimen 
end ; 
if swi tch 
then 

NewValTabLi nk" .Fi rstDimen := ni I { result is a scalar } 
else NewDim" .NextDimen := ni I ; 
switch := true; ValPtr := arg" .Fi rstVaLue; 
while ValPtr <> rrU do 
begin 

new(NewValues) ; 
i f switch = true 
then 
begin 

switch := false; 

NewValTabLi nk" .Fi rstValue := NewValues 
end 
else NewValPt r". NextValue := NewValues; 
NewValPtr := NewValues; 
case code of_ 
1: 

i_f_ ItsBoolean(ValPtr". RealVal) 

{ logical negation } 
then 

NewValues". RealVal := 1.0 - ValPt r" .RealVa I 
e Lse error(19) { va i ue not boolean }/* 
2: 

NewValues". RealVal := Va IPt r" . RealVa I 
{ no-op }; 

NewValues". RealVal := 0.0 - Va IPtr" .RealVa L 
{ negation }; 
4: 

vf_ ValPtr". RealVal > 0.0 { signum } 
then NewValues". RealVal := 1.0 
else 
j_f_ ValPtr". RealVal < 0.0 
then NewValues" .RealVal := - 1.0; 
5: 

vf_ ValPtr". RealVal = 0.0 { reciprocal } 
then error(54) { attempted inverse of zero } 
else 

NewValues". RealVal := 1.0 / Va IPt r" . RealVa I; 
6: NewValues". RealVal := exp(ValPtr" .RealVal) 
end { case }; 

ValPtr := ValPt r" . Next Value 
end ; 
if switch then NewValTabLi nk" . Fi rstValue := ni I 
else NewValues" .NextValue := nil 



end { monadic }; 

procedure catenateCLef tArg, RightArg: TypeValTabPt r) ; 
{ dyadic comma operator - joins 2 arguments } 

var 

ResultLength : integer; 

begin { catenate } 

if (RightArg" .dimensions > 1 ) o_r (Left Arg" .d imensions > 1) 
then error(53) { argument(s) with rank greater than 1 } 
else 
begin 

new(NewValTabLink); 

OldValTabLink".NextValTabLink := NewValTabLi nk; 

NewValTabLink".NextValTabLink := nil ; 

NewValTabLink" . IntermedResult := true; 

if not Left Arg". ForwardOrder 

then ReverseLinkLi st(LeftArg); 

if not Right Arg" .ForwardOrder 

then ReverseLinkList(RightArg); 

NewValTabLink" .ForwardOrder := true; 

NewValTabLink". dimensions := 1 { result is a vector }; 

new(NewDim); NewValTabLi nk" . Fi rstDimen := NewDim; 

NewDim" .NextDimen := ni I; ResultLength := 0; 

if LeftArg" .dimensions = 

then 

ResultLength := ResultLength + 1 { left arg is a scalar } 
else 

ResultLength := ResultLength + Left Arg" .Fi rstDimen" . 
dimenlength; 
if Right Arg" .dimensions = 
then 

ResultLength := ResultLength + 1 { right arg is a scalar 
else 

ResultLength := ResultLength + RightArg". Fi rstDimen" . 
dimenlength; 
NewDim" .dimenlength := ResultLength; switch := true; 
if ResultLength = 
then 

NewValTabLink". Fi rstValue := ni I 
{ result is vector of length } 
else 

begin { transfer values to result } 
LeftValPtr := Left Arg". Fi rstValue; 
while LeftValPtr <> ni_l_ do 

begin { transfer left arg values (if any) } 
new(NewValues); 
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begin 

switch := false; 

NewValTabLink". Fi rstValue := NewValues 
end 
else NewValPt r". Next Value := NewValues; 
NewValues". RealVal := LeftValPtr". RealVal; 
NewValPtr := NewValues; 
LeftValPtr := LeftValPt r" .NextValue 
end ; 
RightValPtr := RightArg" .Fi rstValue; 
while RightValPtr <> nil do 

begin { transfer right arg values (if any) } 
new(NewVa lues); 
if swi tch 
then 
begin 

switch := false; 

NewValTabLink". Fi rstValue := NewValues 
end 
else NewValPtr". NextValue := NewValues; 
NewValues". RealVal := RightValPtr" .RealVal; 
NewValPtr := NewValues; 
RightValPtr := RightValPt r".NextVa lue 
end; 
NewVa lues" .NextVa lue ; = nil 
er| d { transfer of values } 



end 
er| d { catenate 



procedure IndexOf (Left Arg, RightArg: TypeVa ITabPt r) ; 

{ dyadic iota operator } 



var 

Maplndex 



icount, TestLength, OneMore: integer; 



:= NewValTabLink; 
:= nil ; 
:= true; 
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begin { indexof } 

i f Left Arg" .dimensions <> 1 

then error(29) { i e ft argument is not a vector 
else 
begin 

new(NewVa ITabLi nk); 

OldValTabLink".NextValTabLink 

NewValTabLink".NextValTabLink 

NewVa ITabLi nk" . IntermedResult 

if not Left Arg" . ForwardOrder 

then ReverseLinkLi st (LeftArg); 

NewValTabLink" . ForwardOrder := RightArg" .ForwardOrder; 

NewVa ITabLi nk" .dimensions := Right Arg" .dimensions; 

i f Right Arg" .d imensions = 

then 

NewValTabLi nk" . Fi rstDimen := ni I 
{ right argument is a scalar } 
else 

beg i n { build dimensions of result } 

switch := true; DimPtr := RightArg" .Fi rstDimen; 
whi le DimPtr <> nil do 
begin 

new(NewDim); 
i f swi tch 
then 
begin 

switch := false; 

NewVa ITabLi nk" .Fi rstDimen := NewDim 
end 
else NewPt r" .NextDimen := NewDim; 
NewDim" .dimenlength := DimPt r" .d imenlength; 
NewPtr := NewDim; DimPtr := DimPt r" .NextDimen 
end ; 
NewDim" .NextDimen := ni I 
end ; 
switch := true; RightValPtr := Right Arg" .Fi rstVa lue; 
while RightValPtr <> nU do_ 
begin 

new(NewValues) ; 
if swi tch 
then 
begin 

switch := false; 

NewVa ITabLi nk".Fi rstValue := NewValues 
end 
else NewValPt r" .NextValue := NewValues; 
icount := 1; LeftValPtr := LeftArg" .Fi rstValue; 
TestLength := Left Arg" . Fi rstDimen" .dimenlength 

{ length of left arg }; 
OneMore := TestLength + 1 

{ length of left arg plus one }; 
Maplndex := OneMore; 

whi le (icount <= TestLength) and (Maplndex = OneMore) do 
begin 
try to match value in right arg with one in left arg } 
vf LeftValPtr". RealVal = RightVa IPt r" .RealVa I 
then Maplndex := icount { value match }; 
icount := icount + 1; 
LeftValPtr := LeftVa IPtr" .NextValue 
end ; 
NewVa lues". RealVa I := Maplndex; 
NewValPtr := NewValues; 
RightValPtr := RightVa IPtr". NextVa lue 
end 
if no match, index becomes one more than length of left arg } 
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NewValues" .NextValue := ni I 
end 
end { indexof } ; 



procedure reshape(LeftArg, RightArg: TypeValTabPt r); 

{ dyadic rho operator - change dimensions of } 



ResultLength, elements: integer; 
DimPtr: "Dimenlnfo; 
NewPtr: "values; 

begin { reshape } 

if Left Arg". dimensions > 1 
then error(56) { left argument not 
else 
begin 

new(NewValTabLink); 

OldValTabLink".NextValTabLink 

NewValTabLink".NextValTabLink 

NewValTabLi nk" . In termed Result 

if not LeftArg" .ForwardOrder 

then ReverseLinkLi st (Left Arg) ; 

if not RightArg" .ForwardOrder 

then ReverseLi nkLi st (Right Arg) ; 

NewValTabLi nk" . ForwardOrder := true 

if LeftArg" . Fi rstDimen = ni I 

then NewValTabLi nk" .dimensions := 1 



vector or a scalar } 



:= NewValTabLink 
:= nil ; 
:= true; 



NewValTabLi nk" .dimensions := Left Arg" .Fi rst 
dimenlength; 
ResultLength := 1; LeftValPtr := LeftArg". F 
switch := true; 
whi le LeftValPtr <> ni L do 

{"left arg values are~d~imensions of result 
begin { build result dimensions } 

ResultLength := ResultLength * trunc(Left 

RealVal); 
new(NewDim); 

NewDim" .dimenlength := trunc(Lef tVa IPt r" . 
LeftValPtr := Lef tValPt r" .NextVa lue; 



NewDim 



Dimen . 
stValu 




= false; 
NewValTabLi nk" . Fi rstDimen : 
end 
else DimPtr" .NextDimen := NewDim; 
DimPtr := NewDim 
end; 
NewDim" .NextDi men := ni I ; 

RightValPtr := Right Arg" .Fi rstVa lue; elements := 0; 
switch := true; 
whi le elements < ResultLength do_ 

begin { duplicate right arg values into result valu 
elements := elements + 1; new(NewValues) ; 
if RightValPtr = nil 

{ extend right argument if necessary } 
then RightValPtr := Right Arg" . Fi rstVa lue; 
NewValues". RealVal := RightValPtr*. RealVal; 



switch := false; 

NewValTabLi nk" . Fi rstValue := NewValues 
end 
else NewPt r" .NextValue := NewValues; 
NewPtr := NewValues; 

RightValPtr := RightValPt r" .NextValue 
end ; 
NewValues" .NextVa lue := nil ; 
end 
end { reshape }; 

procedure InnerProduct (Lef t Arg, RightArg: TypeValTabPt r) ; 

var 

InprolCode, Inpro2Code, LeftSkip, RightSkip: integer; 

icount, jcount, kcount, Icount, mcount: integer; 

LastLeftDim, Fi rstRightDim, CommonLength : integer; 

Iptr: "values; 

hold: real; 

SFloat, value: real; 

begin { inner product is matrix multiplication } 
DimPtr := LeftArg" .Fi rstDimen; 
if LeftArg" .Fi rstDimen <> nil then 
whi le DimPtr". NextDimen <> ni I do 
DimPtr := DimPt r" .NextDimen 

{ get last dimen of left arg(if any) }; 
if (DimPtr <> ni I ) and (RightArg" . Fi rstDimen <> ni I ) 
then 

T7 DimPtr" .dimenlength <> RightArg" .Fi rstDimen" .dimenlength 
then 

error(52) 

{ last dim of left arg not = to first dim of right arg 
else 
beg i n 

InprolCode := code div 100 { separate operators }; 
Inpro2Code := code - 100 * InprolCode; 
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:= NewValTabLink; 
:= nil ; 
true; 



22 



new(NewVa ITabLi nk) ; 

OldVa ITabLi nk". NextVa ITabLi nk 

NewVa I TabLink". NextVa ITabLi nk 

NewValTabLink". In termed Re suit 

if not LeftArg". ForwardOrder 

then ReverseLinkLi st (LeftArg); 

if not RightArg". ForwardOrder 

then ReverseLinkLi st (RightArg); 

NewValTabLink". ForwardOrder := true; 

NewValTabLink". dimensions := Left Arg" .dimensions + 

RightArg". dimensions - 2; 
if NewValTabLink" .dimensions < 
then NewValTabLink". dimensions := 0; 
switch := true; LastLeftDim := 0; 
i f Lef tArg" .Fi rstDimen <> ni I 
then 

begin ( copy all but last of left arg dims into result } 
LeftSkip := 1; DimPtr := Lef tArg" .Fi rstDimen; 
whi le DimPt r" .NextDimen <> nil do 
begin { copy left arg dimensions } 
new(NewDim); 

NewDim" .d imenlength := DimPt r" .d imenlength; 
LeftSkip := LeftSkip * DimPt r" .dimenlength; 
i f switch 
then 
begin 

switch := false; 

NewVa ITabLi nk". Fi rstDimen := NewDim 
end 
else NewPtr". NextDimen := NewDim; 
NewPtr := NewDim; DimPtr := DimPt r" .NextDimen 
end ; 
LastLeftDim := DimPt r" .d imen length 
end ; 
i f Right Arg" . Fi rstDimen <> nil 
then 
begin 

{ copy all but first of right arg dims into/ result } 
RightSkip := 1 ; 

DimPtr := Ri ght Arg" . Fi rstDimen" .NextDimen; 
whi le DimPtr <> ni I do 

begin { copy right arg dimensions } 
new(NewDim) ; 

NewDim" .dimenlength := DimPt r" .d imenlength; 
RightSkip := RightSkip * DimPt r" .d imenlength; 
i f swi tch 
then 
begin 

switch := false; 

NewVa ITabLi nk" . Fi rstDimen := NewDim 
end 
else NewPt r" .NextDimen := NewDim; 
NewPtr := NewDim; DimPtr := DimPt r" .NextDimen 
end 
end ; 
vf_ switch then NewVa ITabLi nk" . Fi rstDi men : = nil 
else NewDim" .NextDimen := nil; 

if LeftArg". Fi rstValue = nil then LeftSkip := 0; 
if RightArg"'. Fi rstValue = ni I then RightSkip := 0; 
switch := true; 

if Right Arg" . Fi rstDimen <> ni I 

then Fi rstRi ghtDim := Right Arg"" . Fi rstDimen" .dimenlength 
else Fi rstRightDim := 0; 
if Fi rstRightDim > LastLeftDim 
then CommonLength := Fi rstRightDim 
else CommonLength := LastLeftDim; 
icount := 0; LeftValPtr := Lef tArg" .Fi rstVa lue; 
whi le icount < LeftSkip do 

begin { loop for each row in left arg } 

Iptr := LeftValPtr { hold start of row position }; 

jcount := 0; 

whi le jcount < RightSkip do 

begin { loop for each column in right arg } 
LeftValPtr := Iptr; 

RightValPtr := Ri ghtArg" . Fi rstVa lue; 
Icount := 0; 
while Icount < jcount do 

begin { skip to starting value in right arg } 
RightValPtr := RightVa IPt r" .NextVa lue; 
if RightValPtr = nil then 

RightValPtr := RightArg" . Fi rstVa lue 
{ extend arg }; 
Icount := Icount + 1 
end ; 
kcount := 0; 
whi le kcount < CommonLength do 

begin { loop for each element in row / column } 
SFloat := RightValPt r". RealVal; 
DyadComp(S Float, Lef tVa IPt r" .RealVa I, 

Inpro2Code); 
value := SFloat; 
if kcount = 
then 
{ set identity value for first time through } 
case InprolCode o_f_ 

52, 53, 78: SFloat := 0.0; 
54, 55, 56, 77: SFloat := 1.0; 
71, 72, 73, 74, 75, 76: { null case } 
end I case } 
else SFloat := hold; 
DyadComp(SFloat, value, InprolCode); 
hold := SFloat { save summer result }; 
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LeftValPtr := Lef tVa LPt r* .NextVa Lue; 
i_f_ LeftValPtr = ni_l_ then 

LeftValPtr := LeftArg* .Fi rstValue 
{ extend arg } ; 
mcount := 0; 
whi le mcount < RightSkip do 

begin { skip to next value* in right arg } 
mcount := mcount + 1; 
RightValPtr := RightVa LPt r" .NextValue; 
if RightValPtr = nil 

then RightValPtr := RightArg" .Fi rstValue; 
end; 
kcount := kcount + 1 
end ; 
new(NewValues); NewValues" .RealVa I := SFloat; 
i f swi tch 
then 
begin 

switch := false; 

NewVa ITabLi nk".Fi rstValue := NewValues 
end 
else NewValPtr". NextVa lue := NewValues; 

NewValPtr := NewValues; jcount := jcount + 1; 
end ; 
i court := icount + 1 
end ; 
if switch then NewValTabLi nk" . Fi rstValue := ni I 
else NewValues" .NextValue := ni L 
end 
end { innerproduct }; 



procedure 0uterProduce(Lef t Arg, RightArg: TypeVa ITabPt r) ; 



var 

OutProCode: integer; 
SFloat: real; 

begin 

OutProCode := code div 10; 



new (NewVa I Tab Li nk) ; 
TabLi nk; 



OldValTabLink".NextValTabLink := NewValT 
NewValTabLink".NextValTabLink := nil ; 
NewValTabLi nk" . IntermedResuL t := true; 
i f not Lef tArg" .ForwardOrder 
then ReverseLinkLi st (Lef tArg); 
if not RightArg" .ForwardOrder 
tFen ReverseLinkLi st (RightArg); 
NewValTabLi nk" .ForwardOrder := true; 
NewValTabLi nk" .dimensions := LeftArg".d 

dimensions; 
switch := true; DimPtr := LeftArg~.Fi 
whi le DimPtr <> ni L do 

begin { copy left arg dimensions to r 
new(NewDim); NewDim" .dimenlength 
i f switch 
then 
begin 

switch := false; NewValTabLin 
end 
else NewPt r" .NextDimen := NewDim; 
NewPtr := NewDim; DimPtr := DimPt 
end ; 
DimPtr := RightArg" .Fi rstDimen; 
whi le DimPtr <> ni I do 

beg in { copy dimensions of right arg 
new(NewDim); NewDim" .d imenlength 
if switch 
then 
begin 

switch := false; NewValTabLin 
end 
else NewPtr" .NextDimen := NewDim; 
NewPtr := NewDim; DimPtr := DimPt 
end ; 
if switch then NewVa ITabLi nk" . Fi rst Di 
eTse NewDim" .NextDimen := ni I ; 
switch := true; LeftValPtr := LeftArg 
while LeftValPtr <> nil do 



imensions + RightArg". 
rstDimen; 



esult } 
= DimPt r" .d imen length; 



k" . Fi rst Di men := NewDim 



r" . Nex tDi men 



to result } 

:= Di mPt r" .d imen length; 



k" . Fi rstDimen := NewDim 

r" .NextDimen 
men := nil 
. F i r s t Va I ue ; 



begin 

Rig"htValPtr := RightArg" .Fi rstVa lue; 
while RightValPtr <> ni_l_ do 
begin 

SFloat := RightVa IPt r" . RealVa I; 

DyadComp(SFloat, Lef tVa IPt r" . RealVa I, OutProCode); 
new(NewValues) ; 
if switch 
then 
begin 

switch := false; 
NewVa ITabLi nk". First Value 
end 
else NewValPtr" .NextValue := Ne 
NewValues". RealVal := SFloat 
RightValPtr := Right Va IPt r" .Nex 
end ; 
LeftValPtr := LeftValPtr". NextVa lue 
end ; 
vf_ switch then NewValTabLi nk" . Fi rstVa 
else NewValues" .NextValue := ni I 
end { outerproduct }; 



:= NewValues 

wValues; 

NewValPtr := NewValues; 
t Value 
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procedure dyadic (Left Arg, RightArg: TypeValTabPt r) ; 
1 operators with codes of 52 and higher } 

var 

compatible: Boolean; 
arg: TypeValTabPt r; 
SFloat: real; 



then InnerProduct (LeftArg, RightArg) 
then OuterProduce(LeftArg, RightArg) 



result has shape of larger arg }j 



begin 

vf_ code > 1000 
else 

vf code > 100 
else 

if code > 80 
then 

case code o_f 

87: IndexOf (LeftArg, RightArg); 
88: reshape(LeftArg, RightArg); 
89: catenate(LeftArg, RightArg) 
end { case } 
else 

begin { simple dyadics } 
compatible := true; 
if (Left Arg" .dimensions >= 1) and (RightArg". 

dimensions >= 1 ) 
then 

if LeftArg". dimensions <> RightArg" .dimensions 
then 

compatible := false 

{ different ranks/neither scalar } 
e Ise 

begin { ranks match - check lengths } 
LeftDimPtr := Lef tArg" .Fi rstDimen; 
RigthDimPtr := Ri ght Arg" . Fi rstDimen; 
whi le LeftDimPtr <> ni I do 
begin 

if LeftDimPtr" .dimenlength <> RigthDimPtr". 

dimenlength 
then 

compatible := false { different length(s) 
LeftDimPtr := Lef t DimPt r" .NextDimen; 
RigthDimPtr := Ri gthDimPt r" .NextDimen 
end 
end ; 
if compatible 

{ arguments suitible for dyadic operation } 
then 

begin { build dimensions of result } 

if Right Arg" .dimensions > Lef tArg" .d imensions 

then arg := RightArg 

else 

arg := LeftArg 
new (NewVa ITabLi nk); 
OldValTabLink'.NextValTabLink := NewVa ITabLi nk; 
NewValTabLink'.NextValTabLink := nil ; 
NewVa ITabLi nk" . IntermedResuL t := true; 
if LeftArg" . ForwardOrder <> Right Arg" . ForwardOrder 
then ReverseLinkLi st (Left Arg) ; 

NewVa ITabLi nk" . ForwardOrder := arg" . ForwardOrder; 
NewVa ITabLi nk" .dimensions := arg" .d imensions; 
switch := true; DimPtr := arg" . Fi rstDimen; 
whi Le DimPtr <> ni L do 

begin { copy dimensions to result } 
new(NewDim); 

NewDim" .d imenlength := DimPt r" .dimenlength; 
if switch 
then 
begin 

switch := false; 

NewVa ITabLi nk" . Fi rstDimen := NewDim 
end 
e Lse NewPt r" .NextDimen := NewDim; 
NewPtr := NewDim; 
DimPtr := Di mPt r" . NextDi men 
end ; 
i f swi tch 
then 

NewValTabLink'.Fi rstDimen : = nil 
{ result is a seal } 
else NewDim" .NextDimen := ni I ; 
switch := true; 

RightValPtr := Ri ght Arg" . Fi rstVa lue; 
LeftValPtr := Lef tArg" . Fi rstVa lue; 
ValPtr := arg" . Fi rst Value; 
whi Le ValPtr <> n_U do 

begin { perform operation } 
new(NewVa lues) ; 

SFloat := RightVa IPt r" .RealVa I; 
DyadComp(SFloat, Lef tVa IPt r" . RealVa I, code); 
NewValues". RealVal := SFloat; 
i f swi tch 
then 
begin 

switch := false; 

NewValTabLink".Fi rstValue := NewValues 
end 
else NewVa LPt r" .NextVa lue := NewValues; 
NewValPtr := NewValues; 
ValPtr := Va IPt r" .NextVa lue; 
LeftValPtr := LeftVa IPt r" .NextVa lue; 
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RightValPtr := RightValPt r" .NextValue; 
if LeftValPtr = nj_l_ then 

LeftVatPtr := LeftArg" .Fi rstVa lue 
{ extend arg } ; 
if RightValPtr = nil then 

RightValPtr := RightArg".Fi rstValue 
{ extend } 
end ; 
if swi tch 
then 

NewValTabLink~.Fi rstValue := nil 
{ vector of len } 
else NewValues" .NextVa lue := ni I 
end 
else 

error(55) 

{ arguments imcompatible for dyadic operation 
end 
end { dyadic } ; 



procedure FunCalK var ValidFunk: Boolean); 

var 

ValidPm: Boolean; 

begin { funcall } 
ValidFunk := false; 
if FunctCall 
then 
begin 

i f TokenTabPt r" .noun <> StatEnd 
then 
begin 

SubrTabPt r" .TokenCa UingSubr := TokenTabPtr; 
primary(ValidPm); if not ValidPm then error(17); 
{ 'leftarg of dyadic func call not a primary' } 
end ; 
CallSubr; ValidFunk := true; 
end ; 
end { funcall }; 



begin { expression } 
primary(ValidPri); 
vf_ not_ ValidPri 
then 
begin 

if TokenTabPtr* .noun = StatEnd 

then begin ValidExp := true; assignl := true end 
else ValidExp := -false 
end 
else 
begin 

DoneExp := false; 
whi le not DoneExp do 
begin 

FunCall(ValidFunc); 
if ValidFunc 

then begin expression(Val idExp) ; DoneExp := true end 
else 
begin 

assignment (Va I idAssn); 

if ValidAssn and (TokenTabPt r" .noun = StatEnd) 
then begin DoneExp := true; ValidExp := true; end ; 
if not ValidAssn 
then 
if mop 
then 
begin 

monadic (Ope rTabPt r".0perPtr, hold); 
OperTabPtr ".OperPt r := NewValTabLi nk 
end 
else 

if not dop 

then begin ValidExp := true; DoneExp := true en 
else 
begin 

primary(ValidPri); 
if not ValidPri 
then 

error(13) 

{ dyad oper not preceded by a pri } 
else 
begin 

dyad ic (OperTabPt r" .OperPt r, OperTabPt r". 

La st Oper". Ope rPt r) ; 
AuxOperTabPt r := OperTabPt r; 
OperTabPtr := OperTabPt r" .LastOper; 
PtrLastOper := OperTabPtr; 
d i spo se(Aux Oper Tab Pt r) ; 
OperTabPt r". OperPt r := NewValTabLink; 
end ; 
end ; 
end; 
end; 
end ; 
end { expression }; 
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begin { parser } 

assign := false; assignl := false; DoneParse := false; 
repeat 

expression(ValidExp) { checks for valid expression }; 

if not ValidExp then error (10) { 'invalid expression' } 

else 

if SpecSymbol(XRightArrow) 
then 

if not ((OperTabPtr". 0perPtr~.Fi rstValue = nil ) and ( 

OperTabPtr'.OperPt r". dimensions > 0)) 
then { branch } 
1 Fesult of expression is at opertabptr } 

i_f OperTabPtr'.OperPt r".Fi rstValue* .RealVal - 1.0 * trunc 

(OperTabPtr". OperPt r'.Fi rstValue" .RealVal) <> 0.0 
then error(12) { stmt. num. to branch to not an integer } 
else 

if SubrTabPt r = nil 
TFen 

beg i n { function mode } 

TokenTabPtr := hold; DoneParse := true 
end 
else 

if trunc(0perTabPtr". OperPt r".Fi rstValue" .RealVal) in 
C1 .. (SubrTabPtr".CalledSubr " .NumOf Statements)!" - 
then 

VFuncHold := SubrTabPtr" .Cal ledSubr".Fi rstStatement; 
for cnt := 1 to trunc(0perTabPtr".0perPtr" . 
FirstValueTRealVal) do 
begin 

VFuncPtr := VFuncHold; 
TokenTabPtr := VFuncPtr". NextStmnt; 
VFuncHold := VFuncPtr". NextVFunPrt 
end ; 
AuxOperTabPt r := OperTabPtr; 
OperTabPtr := OperTabPtr". LastOper; 
dispose(AuxOperTabPtr); PtrLastOper := OperTabPtr; 
TokenTabPtr := VFuncPtr" .NextStmnt 
end 
else ReturnToCallingSubr 
else { successor } 
else { successor } 
begin 

if not assignl then OutPutVal; assignl := false; 

if SubrTabPtr = nil 

then 

begin { interpretive } 
hold := TokenTabPtr; 
TokenTabPtr := TokenTabPt r'.NextToken; 
DoneParse := true 
end 
else { function } 
begin 

VFuncPtr := VFuncPtr" .NextVFunPrt; 

DoneSuccessor := false; 

repeat 

if VFuncPtr <> nil 
then 
begin 

TokenTabPtr := VFuncPt r" .NextStmnt; 
DoneSuccessor := true 
end 
else 
begin 

ReturnToCal lingSubr; 
if TokenTabPtr". noun = StatEnd 
then DoneSuccessor := true; 
end ; 
unti I DoneSuccessor; 
end ; 
end 
unti I DoneParse; 
release { release memory }; 
end { parser } ; 



beg i n { scanner } 

Initial izeCh a racter Set; ReadlnErrorMsgs; 
InitParser { initialize tables etc. }; Fi I lup Tables; 
FunctionMode := false; Fi rstFunction := true; 

OldValTabLink := nil ; OldFuncTabPt r := nil; OldVarTabPtr := nil; 
OldTokenPtr := ni I ; NewTokenPtr := nil ; NewFuncTabPt r := ni I; 
NewVFuncPtr : = nil ; HoldTokenPtr : = nil ; TokenError := false; 
NewValTabLink := nil ; NewVarTabPtr := nil; GetAPLstatement; 
whi le (APLstatementU] <> characterCForwardSlash] ) or (APLstatementC23 
<> characterCasteriskD) do ( '* ends program T~ 
begin 

SkipSpaces; TokenSwitch := true; 

whi le (position <= LineLength) and (not TokenError) and ( not 
LineTooLong) do 
begin { scanning } 

if APLstatementCpositionD = characterCdeU 

{ function delimiter } 
then { del encountered } 
if FunctionMode 
then 

beg i n { end of current function } 
_i_f_ NewFuncTabPt r <> nil 

then NewFuncTabPt r" .NumOf Statements := FuncStatements; 
if FuncStatements > 
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then 
begin 

NewFuncTabPt r'.NextFuncTabPtr := OLdFuncTabPt r; 
OLdFuncTabPtr := NewFuncTabPt r; 
NewVFuncPt r'.NextVFunPrt := nil 
end 
else 

SError(75) { function defined with no statements }; 
FunctionMode := false; position := position + 1 
end 
else ProcessFuntionHeader { start of a new function } 
else { not a del encountered } 
begin 

i f TokenSwitch 
then 

begin { this is start of a new statement } 
TokenSwitch := false; 
HoldTokenPtr := OldTokenPtr { save starting position } 

MakeTokenLink; NewTokenPt r" .noun := StatEnd; 
NewTokenPt r~.EndAdj := 0; HasLabel := false 
end; 
MakeTokenLink; identif ier(name, ItsAnldentif ier); 
if not ItsAnldentifier then TryToGetANumber 
else 

begin { process identifier } 
SkipSpaces; 
if (APLstatementCposition] = characterCcolon]) and ( 

NewTokenPt r" .NextToken* . noun = StatEnd) 
then 

begin { process statement label } 

SaveLabel := name; HasLabel := true; 
position := position + 1 
end 
else 

Begin { process variable name } 
if not FunctionMode 
then NewTokenPt r*. noun := GlobVar 
else 

if NamesMatch(name, NewFuncTabPt r" .ResultName) 

then NewTokenPt r*. noun := FormRes 

else 

if (NamesMatchCname, NewFuncTabPt r". Left Arg) ) 
or (NamesMatch(name, NewFuncTabPt r" . 
ITghtArg)) 
then NewTokenPt r". noun := FormArg 
else NewTokenPt r". noun := GlobVar; 
if NewTokenPtr". noun <> GlobVar 
then TestFuncPtr := NewFuncTabPt r 
else TestFuncPtr := ni I; 
if not NamelnVarTableCname, VarPointer, 

TestFuncPtr) 
then 
begin 

AddNameToVarTable(name); 
NewTokenPtr".VarTabPtr := NewVarTabPtr 
end 
else NewTokenPt r'.VarTabPtr := VarPointer 
end 
end 
end ; 
SkipSpaces; 
end ; 
if NewTokenPtr <> ni I 
then 

if (TokenError) or_ (NewTokenPt r" .noun = StatEnd) 

then Dest royStatement 

else 

if FunctionMode 
Then 
begin 

FuncStatements := FuncStatements + 1; 

if FuncStatements > 

then 

begin { catalog function statement } 
new(NewVFuncPtr); 
i_f_ FuncStatements = 1 

then NewFuncTabPt r" . Fi rstStatement := NewVFuncPtr 
else OldVFuncPtr~.NextVFunPrt := NewVFuncPtr/' 
OldVFuncPtr := NewVFuncPtr; 
i_f_ HasLabel 

then NewVFuncPt r" .StatLabel := SaveLabel; 
NewVFuncPt r" .NextStmnt := NewTokenPtr 
end 
end 
else 

if APLstatementCI 1 <> character[del3 then 
begin 

parser (NewTokenPt r, NewVa ITabLi nk) ; 
100: DestroyStatement 
end ; 
readln; TokenError := false; Get APLstatement ; 
end ; 
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DIGIT MUST FOLLOW A DECIMAL POINT 
EXTRANEOUS CHARS. FOLLOW FUNCTION HE, AT RE 
INVALID CHARACTER ENCOUNTERED' 
FUNCTION ALREADY DEFINED 
ILLEGAL NAME TO RIGHT OF EXPLICIT hh.SJl.T 
INVALID FUNCTION /ARGUMENT NAME 
RESULT OF ASSIGNMENT NOT VALID VARIABLE 
INVALID FUNCTION RIGHT ARGUMENT NAME 
INVALID EXPRESSION 
SYMBOL NOT FOUND 

STATEMENT NO. TO BRANCH TO NOT INTEGER 
DYADIC OPERATOR NOT PRECEDED BY PRIMARY 
INVALID EXPRESSION WITHIN PARENTHESES 
MISMATCHED PARENTHESES 
NOT USED 

LEFT AEG OF DYADIC FUNCT . NOT A PRIMARY 
NOT USED 

VALUE NOT BOOLEAN 
ATTEMPTED DIVISION BY ZERO 
ARGUMENT NOT A SCALAR 
ARGUMENT IS NEGATIVE 
ARGUMENT IS NOT AN INTEGER- 
ARGUMENT IS A SCALAR OR EMPTY VECTOR 
NOT USED 

INVALID OUTER PRODUCT EXPRESSION 
INVALID INNER PRODUCT EXPRESSION 
NOT USED 

LEFT ARGUMENT IS NOT A VECTOR 
NOT USED 
NOT USED 

ERROR IN FUNCTION ARGUMENT 
ERROR IN FUNCTION ARGUMENT 
INVALID INDEX EXPRESSION 
NON-SCALAR INDICES 
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NON-INTEGER INDICES 
INDEX OUT OF RANGE 
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ARGS. INCOMPATIBLE FOR DYADIC OPERATION 
LEFT ARGUMENT NOT A VECTOR 
NOT USED 
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RE-ENTER LAST LINE 
INPUT 
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INPUT LINE TOO LONG 
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NOT USED 
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NOT USED 
NOT USED 
VARIABLE NOT ASSIGNED A VALUE 
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"Don't Fail Me Now" 



By Srully Blotnick 



The government imposed a 55-mph speed limit on 
cars, not computers. Why, then, are computer owners 
going so slowly? 

Are we in the early stages of a technology bust? 
Strange as this may sound at a time when the nation 
seems to have gone computer crazy, a good many sci- 
entists are starting to worry about just that. 

Their concern stems from the massive switch in the 
computer business from a customer base consisting of 
a handful of large institutional buyers to millions of 
smaller ones. The computer finally has become a piece 
of mass-market electronics, much like video recorders. 
Why is that a problem? A basic rule of business is that 
risk accompanies opportunity. In this instance, the risk 
affects not only the companies in the field, but the entire 
country, thanks to the expanding economic importance 
of this industry. Its health will soon play a decisive role 
in determining the U.S.' international competitive 
position. 

The risk in dealing with the mass market is always 
a simple one: The mob is fickle. What intrigues it today 
may leave it indifferent tomorrow. This time the fickle- 
ness could produce a national disaster. The U.S. has 
unwittingly invested a major portion of its capital — and 
even more important, its hopes — in this area. That's 
why some thoughtful workers in the field are beginning 
to pray quietly: "Don't fail me now." 

How, specifically, do they see a failure occurring? 
The consensus view is as follows: "A Ferrari is excit- 
ing, but how exciting would it continue to be if the only 
place you could use it were your driveway? Well, that's 
exactly what is happening with way too many of the 
computers now being bought. Car or computer, people 
are eventually going to get tired of just looking at the 
thing and bragging about it to their friends. Then, the 
fad will pass. Computer manufacturing plants will close. 
Only a minuscule proportion of computer buyers are 
making good use of the machine's capabilities. They 
don't know enough about programming to make the 
machine really perform." 

"Well, suppose everyone learned BASIC?" I 
asked. 

The overwhelming majority had a better idea: 
"BASIC is a very easy language to learn, but it would 
be enormously better, a dream come true, if everyone 
learned Pascal, which is far superior and just as easy to 
master." 



Dr. Srully Blotnick is a research psychologist and au- 
thor of Getting Rich Your Own Way and Winning: The 
Psychology of Successful Investing. 

Reprinted by permission of Forbes magazine, 
February 28, 1983. 



Since last summer I, therefore, have been collect- 
ing the opinions of everyone, from teachers and hob- 
byists to investors and small business owners, who know 
Pascal to see which books they consider best. A tally 
of the nearly 1,600 replies shows the following: 

For people who know nothing at all about com- 
puters or computer programming, the best place to be- 
gin is R. Pattis' Karel the Robot: A Gentle Introduction 
to the Art of Programming (John Wiley, $8.95). You 
don't need a computer to read this book (or the others 
about to be mentioned). By learning how to move a ro- 
bot through the streets of a small town, you come to 
understand how programming instructs a computer to 
do what you want it to. 

Pattis' book is about programming but doesn't ac- 
tually teach the language. The elementary text that re- 
ceived the top rating in out survey was Arthur Keller's 
A First Course in Computer Programming with Pascal 
(McGraw-Hill, $14.95). The book received high praise 
("Very clear and easy to read") from everyone from 17 
to 70. It is suitable even as a high school text. 

After Keller's book, the next step should be A 
Primer on Pascal by Conway, Gries and Zimmerman 
(Little, Brown, $20). The consensus view: "This book 
will help you deepen your understanding of the lan- 
guage once you've learned the elements." For those 
who already know BASIC, a good way to learn Pascal 
fast is Quick Pascal by D. Matuszek (John Wiley, 
$11.95). 

One work that was highly rated by advanced stu- 
dents was the second edition of Pascal — User's Man- 
ual and Report ( Springer- Verlag, $10.50) by K. Jensen 
and N. Wirth. That is hardly surprising since one of the 
coauthors, Nikolaus Wirth, invented the language. 

To see what the language can really do, serious stu- 
dents will want to learn about data structures — that is, 
such things as lists, stacks, queues, trees, sets, records, 
recursion, sorting and searching. The three top-rated 
texts, all very well written, are: Data Structures and 
Algorithms by A. Aho, et al. (Addision- Wesley, $28.95); 
Advanced Programming and Problem Solving with 
Pascal by G. Schneider and S. Bruell (John Wiley, 
$26.95); and Data Structures Using Pascal by A. Te- 
nenbaum and M. Augenstein (Prentis-Hall, $25.95). As 
the authors of the first work comment, "The only pre- 
requisite we assume is familiarity with some high-level 
programming language such as Pascal." 

Finally, people with a background in probability 
theory rated the second edition of R. Cooper's Intro- 
duction to Queueing Theory (North-Holland Publishing 
Co., $27) the best — clearest and most user-friendly — 
book on the subject. 

Summing up: Buying a computer and not learning 
to program it properly not only wastes money, it also 
stands a good chance of eventually harming the nation' s 
economy. PUG 
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Background 

During the past twenty years the development of 
computer applications in geography has been exten- 
sive. Hundreds of programs have been written and many 
are available to users through various dispensing insti- 
tutions, particularly the Geography Program Exchange 
located at Michigan State University. 1 Virtually all of 
the programs, however, are writen in FORTRAN and 
are suitable for easy installation primarily on large 
mainframe computers. 2 

A similar situation exists in cartographic computer 
program development. Although the number and va- 
riety of programs written is extensive, the FORTRAN 
language is used almost exclusively, and the software 
is designed for use on large systems. A recent textbook 
in computer-assisted cartography provides only pass- 
ing mention of microcomputer graphics in the field of 
cartography. 3 

As a consequence of this situation, computer ap- 
plications in geography and cartography are limited pri- 
marily to the larger colleges and universities that have 
mainframes and the faculty within the departments to 
teach the subjects. As a geographer in a small liberal 
arts college teaching not only introductory cartography 
but a course in micro-based computer mapping, I feel 
somewhat like a pioneer trying to make a clearing in the 
wood without the proper tools. The situation is further 
exacerbated because liberal arts colleges have not been 
as highly revered by the computer industry as have the 
high technology learning centers and are consequently 
not receiving anywhere near the number of equipment 
grants or the same degree of personnel support. 

Yet, more than one writer has commented on the 
need for a closer association between the computer in- 
dustry and the liberal arts college. In a recent editorial 
in Datamation, John L. Kirkely stated the following: 

We urge our industry to work with the lib- 
eral arts colleges to develop courses of study 
that combine the humanities and the sciences. 
A merging of these artificially separated dis- 
ciplines could be a powerful tonic for both our 
colleges and our corporations. 4 

I believe that, in time, changes will be made which 
will result in the liberal arts colleges receiving their fair 
share of industry support. In the meantime, however, 
individuals in those colleges will continue to make con- 
tributions to the furtherance of computer applications 
in what would be considered today to be non-traditional 
disciplines. The set of programs included in this paper 
are suggestive of the kinds of things faculty can produce 



and which 1) are effective vehicles for developing the 
understanding of key concepts in a discipline (demog- 
raphy in this case); 2) are produced with a cost factor 
reflecting only the programmer's time; 3) can be easily 
implemented on any system, micro to mainframe; and 
4) are written in the programming language of the day, 
Pascal. 

The Population Pyramid (Age Structure) Diagram 

It is abundantly clear that world population con- 
tinues to grow at a less than acceptable rate, and that 
some regions, particularly those with countries exhib- 
iting low levels of economic development, have excep- 
tionally high rates of growth. 5 The population pyramid 
is a useful diagram to study the composition of the pop- 
ulation of any country or region. 

In the diagram, age groupings of five years each 
(0-4, 5-9, 10-14,..., up to 75+) are presented for both 
male and female segments of the population. The scale 
along the horizontal axis reports the percentage of the 
total population in each of the age groups. Generally a 
pyramid shape wide at the bottom (young age groups) 
is representative of a fast growing population while an 
age structure more evenly represented along the year's 
axis identifies a population that is stabilizing and that 
does not have a high rate of increase. The industrialized 
and urbanized countries in the developed world would 
fall into the later category; the less developed in the 
former. 

The Programs 

Three programs have been developed for student 
use in an introductory human geography course. 6 It is 
not necessary that the students know the Pascal lan- 
guage in order to run the programs. Introduction is given 
in class on login/logoff procedures and how to access 
the programs. The student need only find suitable in- 
formation in the appropriate statistical source for each 
of the age groups for a particular region, round these 
values to a whole number, and enter the numbers in the 
sequence described in the program prompts. 

The programs developed include: 

1) pyramicLfile — This program is used to create 
an external file of information including the region 
names, year of the data, and the percentages of male 
and female in each age group. Following the input, pro- 
cedure echo-data publishes all the information entered 
for verification. If there were no input errors, the stu- 
dent selects the appropriate key and the program stores 
the information in an external file in the student's ac- 
count. The listing of program pyramid-file follows: 
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program ryramid.f llednpnt . cutout): 



<a program to create an external file rt 
population pyramid data* 



const 

separator " ' 



type 

data s 
record 

country: packed arrav ri.,lb1 of char; 
yean packed array [I, ,4] of char; 

malepercent, f emalepercent J array U,,ifc1 nt integer 
end; 
identifiers « file of data: 

var 

temp: data; 

infoi identifiers; 

filename: packed array M..lh) of cr-u; 
answer: cnar; 



procedure read. data; 

var 

i: integer; 

beain' 

writeln; 

writeC enter file n«-e: *); 

readln(f iienarre) ; 

writeln; 

writeln; 

writeC enter place name -- use lb columns: '): 

readlnrte-nr.countrv); 

writeln; 

writeln; 

wrltec' enter t n e year of the data: ' ) ; 

readln(temp t year ) ; 

writeln; 

writeln(' now, enter t a i e and female percertaqes for'); 

writelnC each age group; enter male percentages first'); 

writelnC frotr the niqhest aae qroup to the lowest,'); 

writelnC' you rmust nave 16 entries for each nrour,'); 

writelnC 'enter as inteoers all on tne sa^e line.'); 

writeln; 

for i t- l to lb oo 

readCtemp.malenercentfin; 

writelnC' next, enter the female rercentaqes . ' ) ; 

for 1 is I to 16 do 

read (temp, femaierercent 1 1 ) 1 ', 

readln; 
end {reaH.data} J 



procedure echo. data; 

var 

1: integer; 

heoin 

writeln; 

writeln (separator ) ; 

writeln; 

writelnC' tne followlnq Information was entered;'); 

writeln; 

writelnC' ' , temn.countrv); 

writeln; 

writelnC' ', teTc.year); 

writeln; 

writec ' rrale ; ') ; 

for i := 1 to 16 do 

writeCtemp.rraiepercent til : 3); 

writeln; 

writeln; 

wrlteC' female : '); 

for 1 := 1 to lb do 

write(temp,te*-alepercentfll» 3W 

writeln; 

writeln; 

writeln (separator ) ; 

writelnC is the information correct?'); 

writelnC' if yes, entpr a "y"; If not, enter'); 

writec' "n": '); 

readln (answer ) ; 

writeln; 

writeln 
end <echo.data> ; 



begin 

read. data ; 
echo-data; 
If Canswer = 'y') or (answer = *Y') then 

beain 

store.dat a; 

writelnC' ***** operation completed *****'); 

writelnC' information storeo in the file: ', filename) 

end 
else 

writelnC* Invalid data: run the rrooram again') 
end, 

2) get_pyr_file — An editing program which the 
student may use to access an external file, display the 
contents, and make any necessary changes. This pro- 
gram would come in handy if more recent data is re- 
ceived and the file is to be updated. The listing or 
program get_pyr_file and an example run of informa- 
tion contained in the external file, SWEDEN. PYR, 
follow: 

program oet.ryr.f 1 le( input , out mjt ) : 

<a program to examine tne external data file 
created oy tne program, 'pyramid. f l ie' , and 
to make chanqes if necessary* 

type 
data * 
record 

country: packed array U..1S1 of char; 
year: packed array U..41 of char; 
mpct, fpct: array Cl.,16] of integer 
end; 
identifiers s file of data; 

var 

temp: data; 

info: identifiers; 

filename: packed array M,.lhj of char; 



procedure skipiines; 

var 

i: integer; 

begin 

for i := l to 10 oo 
writeln 
end <skipilnes> : 



procedure access. file. data; 

var 

1: integer; 

begin 
writeln; 

writeC enter file ne.re: '); 
readlnCf ilename) ; 
resetdnfo, filename); 
temp, country :e info*. country; 
get(info); 

temp.year := info*. year; 
get (Info); 
for i i* 1 to 16 do 

begin 

temp.mpctti] := inf o".mpct t i) ; 

oet(info) 

end; 
for i »= i to lb do 

begin 

temp.fpctm := inf o*.f pet r l) ; 

getdnfo) 

end; 
closednf o) 
end <access. file. data) ; 



procedure publish. data; 



procedure store.data; 



var 

1: integer; 



const 

separator * 



heoin 

rewrlteclnfo, filename); 

info* .count ry :s tecc .country; 

put (Info); 

info*. year :s te*p,year; 

p u t ( 1 n f o ) ; 

for 1 it 1 to 16 do 

beain 

lnf o'.rralerercent [1] : = temp, -naiepereent (1) ; 

put (Info) 

end; 
for 1 := 1 to lb do 

beain 

inf o" . f e*a1 erercent ( 1 1 : = t emp, f emalepercent t 1 1 } 

put ( Info) 

end; 
closeC Info) 
eno <store_data> ; 



var 

1: integer; 

beqin 

sklpl ines; 

wr i teln(senarator ) ; 

writeln; 

writelnC tne follo*inn information is'); 

writelnC contained In ', filename, ':'); 

writeln; 

writelnC ', temp, country ) ; 

writeln; 

writelnC' ', temp, year): 

writeln; 

writec' "-ale percent:'); 

for 1 := 1 to lb do 

write(temp,rrpct tl) : 3); 
writeln; 

writec' female percent:'); 
for 1 :* 1 to lb do 

writectewp.fpct C1J : }): 
writeln; 
writeln; 



28 



Articles 



wrlteln(separator) 
end <publ isn.qata) ; 



procedure make.f 1 le.chanoes; 

var 

i : integer; 
se1 ect or I char ; 

beoin 

writeln; 

writeln; 

writelnC you "-ay make any rubber of changes')! 

writelnC ry selecting the appropriate symbol'); 

writelnC for the data to be chanqed,'); 

w r i t e l n ; 

writelnC use tne followino set of selectors!'); 

w r i t e 1 n ; 

writelnC' area name -- "a"'); 

writelnC year -- "y"'); 

writelnC male percent -- "m"'); 

writelnC' female percent -- "f "); 

w r i t e 1 n ; 

writelnC' enter the selector, then <cr>, and'); 

writelnC' yon win oe prompted to enter the'); 

writelnC' new data.'): 

writeln; 

writelnC' when you nave completed tne chanaes,'); 

writelnC enter an "e" to end the session,'); 

writeln; 

wrlteC enter a selector! '); 

readlnCselector ) ; 

repeat 

case selector of 
'A', 'a'l 

beain 

writelnC' enter new area nam*,'); 

writelrC use 1b columns; '); 

read In (terc, country) 

end; 

'v, 'y'! 

beqin 

wrlte(' enter the new year: '); 

readln (temo .year) 

end; 

'M' , 'm' : 

beqin 

writelnC' enter all sixteen rr a i e percent values - - ' ) ; 

writelnC' hinnest aqe omurs to lowest:'); 

for i := 1 to 16 do 

readCtemp.rrpct r 1 J ) ; 
readln 
end ; 
'F', 'f : 
beain 

writelnC' enter all sixteen female r p r r c n t values - - ' ) ; 
writelnC' hiqnest aue groups to lowest!'); 
for i ;3 1 to it do 

readCtemp.f pet til); 
readln 
end; 
end (case) ; 
writelnC' "Mice another selection: '); 
readinCselector ) 
until Cselector = 'f.') or (selector = 'e'); 
rewritecinfo, filename); 
info*. country := t e . re, country; 
put Cinfo); 

info*. year := teT.year; 
p u t c 1 n f o ) ; 
for 1 :* 1 to 16 do 
begin 

lnfo*.mpct tl] := teTP.rrpct til ; 
P u t ( i n f o ) 
* end; 
for i :« 1 to lb do 
begin 

info*. fpet til := te-rp.f p-ctf il ; 
put(info) 
end; 
closec Inf o) ; 

writelnC' new data stored in ', filename); 
writeln; 
publish. data 
end <make.f i le. chanaes* ; 



pseudo-graphic on a line printer. The program can pro- 
duce a single plot, as shown in the BERLIN example, 
or a double plot of either one region in two time periods 
or two different regions. The student selects single or 
double plot and enters the file names. The program takes 
over from there and produces the output. A double plot 
of SWEDEN and MEXICO illustrates the age struc- 
tures of a country with a low rate of growth and one 
which is high. 



run getpyr 
enter file name: 



the following information is 
contained in Sweden. pyr: 



male percent: 1 
female percent: 1 



2 3 3 

3 3 U 



3 3 3 
3 3 3 



procedure modify. M le. choice t 



do you want to modify the data? — 

if so, enter a *y' 

if not, enter an 'n': n 

no changes to the file. 
Ready 

program drawpyramidC input , outcut); 

<a program to produce a population pyramid graphic} 

const 

blank s ' '; 

type 
ddta s 
record 

country: packed array ti.,15) of char; 
year: oackea array [ 1 , , 'H of char; 
male, female: array tl,,lbl of integer; 
end; 
identifiers s file of data; 
filename = packed array (1..10) of char; 

var 

choice; char; 

temp! data; 

matrix: arrav tl..*?, 1..63] of char; 

pyramid: identifiers; 

filel, tile?: filename; 

procedure lni t ial ize. array ; <set all array elements to tlankl 

var 

i, 1: inteoer; 

beain 

for 1 := 1 to 42 cio 
for 1 := 1 to M oo 

matrixri, 1) := MsnK) 
end < lnlt ial ize. array) ; 



var 












choice! char; 












beain 












writeln; 












writeln; 












writelnC' do you 


'♦ant 


to 


TOdif y 


t he 


'lata? 


writelnC if so, 


enter a 


, # y » » , 


)! 




writeC if not, 


enter 


an 


"n": 




')> 


readln(choice) ; 












if (choice s 'V 


) or 


(cnoice = 


'V') 


then 


make. file. chan 


qes 











procedure riot. choice; {single olnt or super 1 rtpose^ rlot> 



ritelnC no changes to tne file.') 
modify. file. choice) ; 



begi n 

access. f ile.data; 

publish. data; 
modify-f lie. choice 

end , 



3) drawpyramid — The final program accesses the 
information stored in the external file and produces a 



beqin 

writeln; 

writelnC* enter a ' 
wr 1 telr C * enter ar 
readinCchoice ) ; 
writeln 

end (plot. choice) ; 



procedure enter.f 1 1 e.nafte; 



it this is a double riot;'); 
f or a s innle plot I ' ) ; 



beqin 
if 



(choice .= 

eain 

ritemc 

ritelnC 

ritelnC 

ritelnC 

ritemc 

ritelnC 

ritein; 

ritelnC*': I0)i 

e«dln(f iiel); 

eaalnCf iie2) 



or (choice s 'd') then {double plot) 



enter each file narre on a separate lin 
use ten columns for each; note the 
if you are at tne line printer,'); 
position the writing head to the'); 
last line of the paper before'); 
enterinq <cr> after the second file na 



e ; * ) ; 
leer,' 



me. ') ; 
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e (sin 
egin 
ritem 
rltem 
r 1 tern 
r item 
r item 
rltein 
r i tem 
r i t e l n 



Tie plot > 



(' enter tne file name uslna ten columns;'); 

(' note the Tarter"*'''); 

(' It you are at the line printer,'); 

(' position the *ritlng head to the'); 

(' last line ot the naper before'); 

(' entering <cr>,'); 

; 

('-': io) t 



end (enter-1 1 le.netme) ; 



procedure labels; 



1, i, k : integer; 

shorttltle: packed army M,,1P) of char; 
longtitie: packed arrav tl..3b) of char; 
agegroupss packed array (1..65) of char; 
menwoment racked array (l.,iO) of char; 

begin 

for 1 :« 2 to 42 ao 

bealn 

matrix (1, 1] |e •{'; 

m a t r 1 x ( 1 , 63) := ' i ' ; 

end; 
for 1 i« l tn 63 do 

bealn 

matrixtl, 1J := '.'; 

matrlxf42, j) := '.'; 

end; 
for 1 J* b to 37 no 

matrlxd, 27] :» '•'; 
for 1 :a 7 to 47 no 

matrix(37, ii ;s »„'; 
If (choice s 'n') or (choice * 'd') then 

begin 

lonatitle := 'population pyramids -- superimposed'; 

for 1 := 3 to 37 oo 

matrixfi, j] je longtitletj - 2) 

end 
else 

beoln 

shorttltle : s 'population pyramid'; 

for J I* i to 20 60 

matrixri, 1] := shorttitlefj - 2) 

end; 
rren*orren J* 'malet emale ' ; 
for j t* 13 to 16. do 

ratrlxti), j] := menwomenM - 12); 
for j := 3* to 43 do 

matrix(13, 1) := n-enwoTenCj - 33); 
matrix(4, 5i) ;s 'a'; 
m a t r i x ( 4 , 5 4) :» ' g ' ; 
matrix(4, 5b] := 'e'; 
matrlxtb, 53) :s 'Tt 
matrix(6, 54) := '5'; 
matrix(6, 55) : = •♦'; 
agegroups : = 

'7 0- 7 46 5-6960-6455-5950-54 4 5-49 40-4 4 35- 39 30-3425 
-2920-2415-1910-14 

; 
1 :* l; 

k »* 8; 

while 1 <s 65 do 
beqin 
for 1 :« 52 to 56 do 

begin 

matrix tk, j] 
1 :« 1 + I 



ageoroupsM); 



55] 



end; 
k := k ♦ 2 

end; 
matrix (34, 53) 
matrlx(34, 54) 
matrlx(34, 55] 
matrix(36, 53) 
matrix(36, 54j 
matrix(36 
1 := 7; 
while 1 <= 4 

beain 

matrix (3P, 

j := ) ♦ 4 

end; 
matrix t3P 
matrix(3 Q , 
matrix (3$, 
matrix(39, 



= '5 

s '9 
= '0 
s ' - 



var 

1, J, k: inteqer; 

fllearray: array 1 1 , , 2 1 of filename; 

beain 

If (choice = 'D') or (choice = 'd"> then (double plot} 
bealn 

fllearray tl) s= f ilei ; 
filearray[2) :* flle2; 
for 1 := l to 2 do 
. begin 
if 1 = 1 then 

k := 4 3 
else 

k := ill; 
reset (pyramid, f 1 learray r i] ) ; 
temp, country :* pyramid*. country; 
get (pyramid) ; 
i*-J_»_2 thJtIL 
for 1 13 1 to 15 do 

iratrlxt4, 1 + 17) := teirp, country M ] 
else 

for 1 ;a i to 15 do 

rratrixt4, 1*2] : = temp, country U) ; 
temp, year »s pyram l d* , vear ; 
get (pyramid) ; 
if 1 = 2 then 

for j := l to 4 do 

matrlxts, 1 ♦ 171 := temp, vear t :) 
else 

for i :» i to 4 do 

matrixfS, 1 + 2] x- ten-D.year 1 1) ; 
for 1 i= 1 to 16 do 
bealn 

teirp.maie t1) := pyramid* .male 1 1 ] ; 
oet (pyramid) ; 
if matrix(2 * 1 ♦ 4, 27 - 2 * t emp .it ale M J ) <> blank then 

matrlx(2 * J ♦ 4, 27 - 2 * t en p . rr a ] e r j l j := ' = ' 
else 

matrix[2 * j ♦ 4, 27 - 2 * temp .ma le f 1 ] ) := chr(k) 
end; 
for j := l to 16 do 
beoln 

temp.f emale ( j] := pyramid- .'female M J ; 
get (pyramid) ; 
It matrlx(2 * 1 ♦ 4, 27 ♦ ? * t emp . female [ 1 ) ) <> blank then 

matr1x(2 * .1 4 4, ?7 4 ? * temr . f ema] e f j ) ) := *s' 
else 

matrix(2 * ) * 4, 27 4 2 * temp, female r ]) ] := chr(k) 
end; 
closetpyramid ) 
end 
end 
else (single plot) 
begin 

reset (pyramid, fliel); 
temp, country ;s pyramid*, cokintry; 
get (pyramid ) t 
for j ;= x to 15 do 

matrixt4, j 4 2] := temD,countryr)l; 
temp. year :* pyra^ Id* .year ; 
get (pyramid) ; 
for 1 is 1 to 4 do 

matrix (b, 1 4 2) :s temp, year 1 1 J ; 
for 1 :« 1 to in do 
beain 

temp.maled] := pyramid* , >*a le ( 1 ] ; 
get (pyramid) ; 

matrix(2 ♦ J 4 4, 27 - 2 * tern.maief j] ] ;r '*' 
end; 
for 1 := 1 to it 00 
begin 

temp, female [ 1 J := nyra^iH* , f enale [ 1 ] j 
oet (pyramid) ; 

matrixf2 » ) 4 4, 27 4 2 * t e-rr , f em d l e r j U := '*• 
end; 
close(pyramld) 
end 
end <retrieve_and„asslan.data) ; 



procedure symbol^exp lanat ion; 



var 

check!, cneck2t data; 



1] := '*'; 



27] 

7] : 
b) : 
in 
matrixfi^, 15j 



matrixr39, 
marrixf39, 
matrlx[39, 31) 
matrlxC39, 35] 
matrix t 39, 
matrix(3<:, 
matrix (39, 
matrix[39, 47) 
matrix (41 , 
matrix (41 , 
matrixUl, 
matr ix (41 , 
matrixUl , 
matr lx (41 , 
mat r ix f 41 , 
end (lapels) 



19] 
23) 



39) 

43) 



24) 
25) 

26) 
27] 
2«] 
29] 

30) 



'6'; 
'4' ; 
'2'; 
'2'; 



'1'; 

'0'; 



c ' ; 
'e' ; 



r 1 teln 
eset (p 
heckl 
et (pyr 
necki, 
lose (p' 
eset (p 
heck2, 
et (pyr 
heck2, 
lose(r 
f chec 

oeain 

*r ite 

write 

»r 1 te 

end 
lse (different areas) 

beam 

wr 1 te 

write 

write 



yramM, fllel); 
country J= Pyramid*. country; 
amid ) ; 

year := pyram li*,vear ; 
yramld ) ; 
yramid, file?); 
country := ryra^id*. country; 
amid); 

year := pyramid*. year; 
yramld ) ; 
1, country s check? .country then (same area tor botn plot»> 

ln(' ', checki.year: 4, ' -- +'); 
lnC ', check?, year: 4, ' -- 0'); 
ln(' "r"j same value for each year') 



ln(' ', cneck 1 .country , ' -- 4'); 
ln(* ', rheck?. country , ' -- 0'); 
ln(' "='': same value tor both areas') 



end (syrrbol-exPlanat ion > ; 



procedure retrieve.ana„assitin»data; 



procedure sklpilnes; (for proper output formatting) 



var 

1 : integer ; 
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beain 

for 1 t= 1 to 12 
writein 
end (skin lnes) ; 



procedure rrducf.rvraTH; 

var 

i, )i lnfeoer; 

beqlr 

s k 1 r 1 1 n e s ; 

for 1 := 1 to 42 do 
for 1 := 1 to *3 do 
b e o 1 r 

wrlteeratrtxti, i)); 
If 1=6? tnpn 

w r 1 1 e l n 
end ; 
If (choice * T') or (choice = 'd') then 

sy^roi-expl anat Ion j 
sk ipl Ires 
end <prod oce.pvr it lo > » 



beql r 

inltlalize„arrav? 

rlot_crolce; 

enter. flle.na -re; 

labels; 

retrieve_ard_dsslnr_data; 

pr oduc*»_pyr a* id 



end. 



population pyramid 

Sweden 

1970 







age ! 
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70-74 ! 
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60-64 ! 




female 


55-59 ! 
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» 
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• 




35-39 ! 
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20-24 ! 
15-19 ! 


• 




10-14 ! 


* 




5-9 ! 


* 




0-4 ! 


4 


6 8 10 





Conclusion 

The inclusion of exercises such as this one in social 
science classes has proven to be valuable in a number 
of ways. It allows students with little or no program- 
ming background to get over their tentativeness about 
approaching a computer. In addition, I believe that such 
exposure to computers, however limited, contributes 
to the overall computer literacy of students. Finally, the 
experience may spur a student to want to take a course 
in computer programming or to learn other uses of the 
computer. 

There is absolutely no reason why students in all 
divisions of the liberal arts setting should not benefit by 
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the opportunities available in the field of computer 
science. 

Notes 

1. The Geography Program Exchange assists uni- 
versities and other non-profit organizations with the in- 
terchange of computer software which relates to 
problems of a geographic nature. The address is: 

Geography Program Exchange 
Department of Geography 
Michigan State University 
East Lansing, Michigan 45824 

2. One of only a few books written on the general 
topic of computer applications in geography is Paul M. 
Mather, Computers in Geography: A Practical Ap- 
proach (Oxford: Basic Blackwell, 1976); it contains four 
chapters, one of which is an introduction to the FOR- 
TRAN language. 

3. Mark S. Mormonier, Computer-Assisted Car- 
tography: Principles and Prospects (Englewood Cliffs, 
New Jersey: Prentice-Hall, Inc., 1982), p. 22. 

4. John L. Kirkley, Editor, "Our Industry Could 
Lead a Liberal Arts Renaissance," Datamation, March, 
1983, p. 29. 

5. Brian J. L. Berry, et al, The Geography of Eco- 
nomic Systems (Englewood Cliffs, New Jersey: Pren- 
tice-Hall, Inc., 1976), p. 36. 

6. The programs in this paper were prepared using 
Oregon Software Pascal, Version 2.0, and run on a DEC 
PDP 11/70. PUG 
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Path Pascal 
A Language for Concurrent Algorithms 

By W. Joseph Berman 

Advanced Programming Techniques, Inc. 
704 Village Road, Charlottesville, VA 22903 



1. Introduction 

This paper is intended to provide an overview of 
the Path Pascal programming language. Rather than in- 
troduce the language by studying its definition, the ap- 
proach taken here is to explore a moderately complex 
example. While any detailed understanding of Path 
Pascal must be based upon the formal definition of the 
language, this paper will present the most important 
concepts embodied in the language. 

After a brief history of the development of Path 
Pascal, the problem to be solved by the example pro- 
gram will be presented. Using this example, three major 
concepts of Path Pascal will be explored. With these 
major concepts, the operation of the program can be 
understood. Finally, a summary of the present status 
and anticipated future of Path Pascal are discussed. 

2. Background 

Path Pascal was originally developed at the Uni- 
versity of Illinois in 1978 by Dr. Roy Campbell. Details 
of the original Path Pascal compiler project are avail- 
able from the University of Illinois as a series of Re- 
search Reports. In addition, the definition of the 
language has appeared in SIGPLAN Notices [1]. 

The University of Illinois implementation of Path 
Pascal was for the LSI- 1 1/23 processor. Path Pascal has 
now been implemented on a variety of machines in- 
cluding the M68000 (by NASA-LaRC), AMAC-80 (by 
Martin-Marietta) and VAX- 11/780 (by NASA-God- 
dard). This report is based upon experience gained with 
Path Pascal as part of NASA Contract NASI- 16985 
during 1982 using the M68000-based Path Pascal com- 
piler developed by Dr. Ed Foudriat at NASA's Langley 
Research Center. 

Path Pascal is based upon " Path Expressions" first 
described by Campbell and Habermann in 1974 [2] . The 
key concept is that coordination among a collection of 
concurrent processes should be expressed in a language 
designed especially for that purpose. "Path Expres- 
sions" conveniently and succinctly specify the central 
concepts of "mutual exclusion" (protecting "critical 
sections" of code) and of "synchronization" (waiting 
for information to be computed by other processes). In 
Path Pascal, the primary unit for mutual exclusion and 
synchronization is the subroutine, allowing the use 
symbolic names in the Path Expressions. 

In Path Pascal, "counting semaphores" are used 
to implement both mutual exclusion and synchroniza- 
tion. By specifying the Path Expression prior to the 
subroutines that it controls, the compiler can generate 
appropriate initialization, P-operation and V- operation 
at the beginning and ending of each subroutine. 



2.1 The Island 

Before discussing the example Path Pascal pro- 
gram, it may be useful to understand that this program 
is a simple event-driven simulation. The simulation in- 
volves an island and its inhabitants. 

The island of this program is a very special island. 
It consists of a 25 x 17 grid, each element of which can 
either be empty (displayed as a blank), contain a wolf 
(designated by a 'W'), or contain a rabbit (designated 
by a 'R'). Initially, there are 17 wolves (all in column 
10) and 17 rabbits (all in column 16). 

Each wolf begins with a user-specified "energy". 
This energy is used on an "annual" basis to remain alive, 
looking for rabbits to eat or other wolves with which to 
mate. Each "year" the wolf looks around his position 
on the grid, determining if there are any rabbits or wolves 
in his neighborhood. If there are any rabbits, the wolfs 
energy is increased by eating them. If, on the other hand, 
there are too many wolves in the neighborhood, the wolf 
loses excess energy due to overcrowding. Only if there 
are a reasonable number of neighbor wolves and this 
wolf is "fertile" does the wolf attempt to produce an 
offspring. If the wolf s energy is reduced to zero, it dies. 

Each rabbit also begins with a user-specified "en- 
ergy". This energy is affected in a manner similar to a 
wolf, except that a rabbit is considered to have been 
"eaten" if there are any wolves in its immediate neigh- 
borhood and that rabbits gain energy by overcrowding 
rather than losing it. 

Finally, the user may wish to "repopulate" the is- 
land, assigning new energy and lifetime specifications. 
This is done by pressing any key on the keyboard. 

3. Path Pascal Constructs 

The example program, ISLAND, is primarily writ- 
ten in standard Pascal. It makes use of only three new 
constructs — OBJECTS, PROCESSes and Wait-for-Son 
processing. 

3.1. OBJECTS 

Of the several extensions to standard Pascal, the 
OBJECT construct is the most important to under- 
standing Path Pascal. An OBJECT is a Path Pascal 
TYPE with several properties similar to a RECORD. 
As with a RECORD, each variable of an OBJECT TYPE 
allocates stack space and NEW of a pointer to an OB- 
JECT TYPE allocates heap space. The space required 
for a OBJECT TYPE is that for the semaphores implied 
by the OBJECT'S Path Expression and for any varia- 
bles explicitly declared within the OBJECT. Unlike 
RECORDS, OBJECTS contain subroutines (PROCE- 
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DURESs, FUNCTIONS and PROCESSes). Those 
subroutines that are included in the Path Expression are 
termed "ENTRY" routines and may be accessed from 
outside of the OBJECT using the RECORD-like nota- 
tion "object, entry (parameters)" (e.g., line 436 or line 
444). 

Lines 16-52, 71-95, 96-183 and 186-200 indicate four 
common kinds of OBJECTS. These examples will be 
discussed in the following sections. 

3.1.1. OBJECT CRTOBJ (lines 16-52) 

This OBJECT is an example of an "interprocess 
buffer" OBJECT. Since processes run concurrently (see 
Section 4), they must be synchronized in order to trans- 
fer information. Unlike ADA in which processes must 
"rendezvous", Path Pascal facilitates the concept of 
"interprocess buffers" that contain data to be trans- 
ferred from one process to another. This allows the 
"sending" process to continue execution after gener- 
ating the information for the other process. 

The Path Expression on lines 19-21 has both mu- 
tual exclusion and synchronization expressions, the first 
two expressions simply state that the operations PUSH 
and POP are atomic (only one PUSH at a time and only 
one POP at a time). The last expression specifies the 
synchronization between PUSH and POP. It states that 
a call to POP may not proceed until a call to PUSH has 
completed and, furthermore, at most CRTSZ calls to 
PUSH can be honored before at least one call to POP 
occurs. 

This last implication of the Path Expression, that 
at most CRTSZ calls to PUSH can proceed without at 
least one call to POP, is the key to understanding the 
data structures (lines 24-27) and code (lines 29-51) of 
CRTOBJ. Since at most CRTSZ calls to PUSH can oc- 
cur without a call to POP, all that is required is space 
for CRTSZ "messages". Since the "interprocess mes- 
sage" in this case is just a character, BUF is simply an 
ARRAY of CRTSZ characters. INPTR specifies where 
PUSH is to put its character, and OUTPTR specifies 
where POP is to get its character. This code works be- 
cause the Path Expression controls access to the rou- 
tines PUSH and POP, and, therefore, controls access 
to the BUF ARRAY. 

3.1.2. OBJECT CREATOR (lines 71-95) 

This OBJECT is also an interprocess buffer; how- 
ever, the buffer has only a single entry (the VARs XX, 
YY and EE). This form of the interprocess buffer is very 
similar to the ADA "rendezvous". 

3.1.3. OBJECT SCREEN (lines 96-183) 

This OBJECT is used to control access to the INFO 
ARRAY, the inmemory representation of the island. The 
Path Expression on line 99 simply states that one and 
only one of the allowed operations may be progress at 
any given instant. 

The routines in this OBJECT include SETUP (for 
reinitialization), KILL (for termination), LOOK (for 
examining the "neighborhood" of a wolf or rabbit), 
ASSIGN (for direct control of INFO), CHANGE (a test- 
and-set operation) and DONE (a set-and-test opera- 



tion). The routine WRITES (update terminal screen) is 
available only within this OBJECT. 



3.1.4. OBJECT SHUTUP (lines 186-200) 

This OBJECT is used to synchronize the termi- 
nation of the simulation. Since Path Pascal does not al- 
low "preemptive termination" of process (see Section 
4), care must be taken when writing processes that must 
eventually terminate. 

This OBJECT acts essentially as a binary sema- 
phore. The call to SHUTUP.WAIT on line 376 will cause 
the calling process (SHUTDOWN) to suspend opera- 
tion until the call to SHUTUP. SIGNAL is made on line 
364. 

3.2. PROCESSes 

The second major addition of Path Pascal to stand- 
ard Pascal is the PROCESS. Conceptually, a PRO- 
CESS is a PROCEDURE that, after it is called, executes 
in parallel with its caller. In Path Pascal, all processes 
that are not waiting due to a Path Expression, a DOIO 
(see below) or a DELAY are competing for the hard- 
ware processor(s). Also note that each call to a PRO- 
CESS creates a new process, as in lines 311-317. 

PROCESSes in Path Pascal can either be normal 
or INTERRUPT PROCESSes. An INTERRUPT PRO- 
CESS has two special attributes not associated with 
normal PROCESSes. The PRIORITY and VECTOR 
information are used to control the interrupt hardware 
such that the DOIO statement (lines 213-237) acts as a 
" wait-for-interrupt' ' . In addition, as shown on lines 211, 
216, 234, 239, it is sometimes necessary to enter "su- 
pervisor state" in order to access device controllers. 

3.2.1. INTERRUPT PROCESS DLVJIN (lines 201-221) 

This process is an "infinite loop", waiting for an 
interrupt from the terminal input hardware. When such 
an input occurs, the character is forwarded to the ap- 
propriate interprocess buffer. 

3.2.2. INTERRUPT PROCESS DLVJOUT 
(lines 224-241) 

This process is also an "infinite loop". It waits for 
a character to be placed into the appropriate interpro- 
cess buffer, transfer the character to the terminal, and 
waits for the completion interrupt. 

3.2.3. PROCESS WOLF (lines 242-270) 

This process corresponds to a wolf in the simula- 
tion; it is called when a wolf is to be created. The pro- 
cess is a loop corresponding to the lifetime of the wolf. 
In the loop, the ENERGY of the wolf (a local variable) 
is constantly updated until it is reduced to zero and the 
wolf dies. 

3.2.4. PROCESS RABBIT (lines 273-302) 

This PROCESS is similar to PROCESS WOLF, 
except that it corresponds to a rabbit. As with the wolf, 
the ENERGY of the rabbit is constantly updated until 
it is reduced to zero and the rabbit dies. 
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3.2.5. PROCESS SHUTDOWN (lines 366-380) 

This PROCESS is used to wait for input from the 
user (any input will do). When this input occurs, it is 
necessary to notify the screen monitor (line 374) and the 
main program (line 375). However, at thia point it is 
necessary to wait for the main program (actually, PRO- 
CEDURE PROCREATE) to complete its processing 
(line 376). Finally, SHUTDOWN "absorbs" any extra 
attempts to create rabbits or wolves. This is completed 
when the special message having an ENERGY of zero 
is encountered, and SHUTDOWN is terminated. 

3.3. Wait-for-Sons Processing 

When a PROGRAM, PROCEDURE, FUNC- 
TION or PROCESS calls a PROCESS, it is necessary 
that this "son" process terminate before the "father" 
can terminate. This is logically necessary due to the 
scope rules of Path Pascal. Furthermore, this "wait- 
for-sons" processing is a useful tool for coordinating 
the termination of a system. 

Except for "wait-for-sons" processing, there is no 
reason that the code in PROCEDURE PROCREATE 
could not be part of the main program. Note, however, 
that all of the WOLF and RABBIT processes are ini- 
tiated by PROCREATE. Hence, PROCREATE cannot 
continue until all of these processes have terminated. 
This fact is critical to the coordination between PRO- 
CREATE and SHUTDOWN when the simulation is 
being terminated. 

4. PROGRAM ISLAND 

Having looked at the special features of Path Pas- 
cal that are used by this program, it is now possible to 
step through a typical execution of the program. 

The main program begins (lines 430-433) by allo- 
cating heap-space for CRTIBUF and CRTOBUF, by 
initiating the input/output processes DLJVIN and 
DLVJOUT, and associating DLJVIN with CRTIBUF 
and DLJVOUT with CRTOBUF. 

The driving loop of the program (lines 435-445) 
clears the terminal's screen (using DEC-VT52 proto- 
col), prompts the user for parameters (PARAMS), rein- 
itializes the simulation (SCREEN. SETUP), initiates a 
process to look for terminal input (SHUTDOWN), and 
calls PROCEDURE PROCREATE. 

PROCEDURE PROCREATE (lines 303-365) be- 
gins by initiating 17 wolves and 17 rabbits. It then enters 
a loop waiting for requests for creation. When such a 
request occurs, it is first tested to see if it was generated 
by SHUTDOWN, indicating that termination should 
begin. If this is not a SHUTDOWN request, it is a re- 
quest for the creation of a wolf (ENERGY> 0) or a rab- 
bit (ENERGY<0). Each direction (UP, DOWN, LEFT 
and RIGHT) is tested to see if it is available. If all di- 
rections are occupied, creation is not possible. If a free 
position on the island is found, the SCREEN.CHANGE 
call updates the simulation and the rabbit or wolf is cre- 
ated (lines 358-361). When the special SHUTDOWN 
request is encountered, PROCREATE signals SHUT- 
DOWN that it has completed processing, and waits for 
all of the wolf and rabbit processes to terminate. 

Once all of the wolf and rabbit processes termi- 
nate, PROCREATE returns to the main program (line 



444). The main program now signals the SHUTDOWN 
process that no more requests for creation will be gen- 
erated, and the master control loop iterates. 

5. Summary and Conclusions 

While a single example cannot cover all of the con- 
structs and uses of those constructs, the ISLAND pro- 
gram is representative of the important capabilities that 
Path Pascal has that are not found in standard Pascal. 
These capabilities include multiple processes (PRO- 
CESS), interprocess coordination (OBJECT), and pro- 
cess termination coordination (Wait-for-Son). 

Having programmed in Path Pascal for several 
months, it is clear that these new capabilities are useful. 
Many of the PROCESSes and OBJECTS that have been 
written have been found to be highly reuseable since 
they "encapsulate" and entire concept or function 
within the program. However, it is equally clear that 
these new capabilities do not "solve" the concurrent 
programming problem. Developing the Path Expres- 
sions is a tedious, error-prone undertaking. Nonethe- 
less, once a Path Expression is finally "correct", it is 
usually clear to anyone reading the code exactly what 
will occur when the program is executed. 

One of the goals of the current research with Path 
Pascal is to identify various "prototype" Path Expres- 
sions. The "interprocess buffer" is a good example. If 
a few such prototypes can be found to be sufficient for 
most situations, a "macro OBJECT" facility might be 
added to Path Pascal to make these prototypes readily 
available to the average programmer. 



PROGRAM ISLAND; 
CONST 

BEL 7 ; 

CR 1 1 

ESC 2 7 

CRTSZ 12 

XMAX ?.(: 

YMAX 1 8 

XWOLF \C 

XRARRIT lh 



WOLF AND RABBIT SIMULATION PROGRAM * 

(* ASCII FOR TERMINAL BELL M 

( ' ASCII FOR TERMINAL END OF INPUT 

( * ASCII FOR TERMINAL CREATOR * ) 

( * SIZE OF TERMINAL BUFFER » ) 

(♦ ISLAND SIZE: COLS U *) 

( * IS LAND SIZE: ROWS + 1 * ) 

( ' INITIAL COLUMN FOR WOLVES • ) 

( ' INITIAL COLUMN FOR RABBITS * ) 



CRTPTR 
CRTOBJ 



"CRTOBJ; 
OBJECT ( ' 



SYNCHRONIZE TERMINAL INPUT/OUTPUT * ) 



1 : ( PUSH ) , 

1 : ( POP ) , 

CRTSZ: ( PUSH; POP ) 



ONE AT A- TIME * ) 
ONE- AT- A TIME * ) 
PUSH THEN POP * ) 



END; 
VAR 



BUF 

INPTR 

OUTPTR 



ARRAY fl.. CRTSZ] OF CHAR; 

INTEGER; 

INTEGER; 



ENTRY PROCEDURE PUSHf CH : CHAR ) ; 
BEGIN 

RUF[ INPTR] : CH; 
IF INPTR-CRTSZ THEN 

INPTR :■ 1 
ELSE 

INPTR : INPTR U; 
END; (' PROCEDURE PUSH *) 

ENTRY PROCEDURE POP( VAR CH : CHAR ) ; 
BEGIN 

CH : BUF [OUTPTR]; 
IF OUTPTR CRTSZ THEN 

OUTPTR : 1 
ELSE 

OUTPTR : OUTPTR+ 1 ; 
END; ( * PROCEDURE POP » ) 

INIT; 
BEGIN 

INPTR : -- 1; 
OUTPTR : = 1 ; 
END ; 
END ; ( * OBJECT CRTOBJ * ) 



CRTIBUF 
CRTOBUF 



CRTPTR ; 
CRTPTR ; 



INPUT BUFFER • 
OUTPUT BUFFER 



WOLF: INITIAL ENERGY 
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WYRS 

WANNUAL : 
WFERTILE: 
WCROWD 
WMAX 

RINIT 
RYRS : 
R ANNUAL : 
RFERTILE : 
RCROWD 
RMAX 



INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 

INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 
I NTEGER ; 



WOLF: NORMAL LIFETIME *) 

WOLF : ANNUAL ENERGY USAGE * ) 

WOLF: ENERGY FOR FERTILITY M 

WOLF: MAX ENERGY OF NEIGHBORS M 

WOLF: MAX ENERGY FOR AN INDIVIDUAL M 

RABBIT: INITIAL ENERGY ' ) 

RABBIT: NORMAL LIFETIME ») 

RABBIT: ANNUAL ENERGY USAGE * ) 

RABBIT: ENERGY FOR FERTILITY * ) 

RABBIT: MAX ENERGY OF NEIGHBORS M 

RABBIT: MAX ENERGY FOR AN INDIVIDUAL * 



BFGIN 

INFO[X,Yl := E; (* UPDATE IN- MEMORY M 

DONE : FALSE; 

IF (E---0) OR STOP THEN (* TERMINATE WOLF/RABBIT *) 
BEGIN 

WRITES( X , Y , O ) ; ( * UPDATE SCREEN * ) 
DONE : - TRUE; 
END; 
END; (* FUNCTION DONE •) 

END; (* OBvJECT SCREEN *) 



CREATOR : OBJECT ( ' SYNCHRONIZE WOLF/RABRIT CREATION 
PATH 

] : ( CREATE; STARTUP) 
END; 

VAR 

XX : INTEGER; 

YY : INTEGER; 

EE : INTEGER; 

ENTRY PROCEDURE CREATE( X , Y , E : INTEGER ) ; 
BEGIN 



OBJECT ( * SYNCHRONIZE TERMINATION 

PATH 

1 :( SIGNAL; WAIT) 
END; 

ENTRY PROCEDURE SIGNAL; 

BEGIN 

END; (* PROCEDURE SIGNAL * ) 

ENTRY PROCEDURE WAIT; 

BEGIN 

END; (* PROCEDURE WAIT * ) 



END; 



END; (« PROCEDURE CREATE •) 

ENTRY PROCEDURE STARTUPS VAR X , Y , E : INTEGER ) ; 
BEGIN 

X : XX ; 

Y : YY; 

E :- EE; 
END; ( » PROCEDURE STARTUP * ) 

END; (' OBJECT CREATOR •) 

BJECT ( * COORDINATE SCREEN * ) 

PATH 

1 : ( SETUP, KILL, LOOK , ASS I GN , CHANGE , DONE ) 
END; 



( * OBJECT SHUTUP * ) 



STOP 
INFO 



BOOLEAN; 

ARRAY [0. .XMAX,0. . YMAX] OF INTEGER; 



( RE INITIALIZATION *) 



ENTRY PROCEDURE SETUP; 
VAR 

X : INTEGER; 

Y : INTEGER; 
BEGIN 

STOP : FALSE; 

FOR X := TO XMAX DO ( * RESET ENERGIES * ) 
FOR Y : - TO YMAX DO 
INF0[X,Y1 :- 0; 
END; (* PROCEDURE SETUP *) 

ENTRY PROCEDURE KILL; ( * BEGIN TERMINATION * ) 
REGIN 

STOP : --- TRUE ; 
END; (* PROCEDURE KILL *) 

ENTRY PROCEDURE LOOK( X , Y : INTEGER ; VAR ER , EW : INTEGER ) ; 

PROCEDURE TEST( ENERGY: INTEGER ); 
BEGIN 

IF ENERGY <0 THEN 

ER : ER+ENERGY 
ELSE 

EW : EW4ENERGY; 
END; (' PROCEDURE TEST *) 



ER 



= 0; 



SURROUNDING RABBIT ENERGIES ' 
SURROUNDING WOLF ENERGIES « ) 



TEST( INFO[X 1 , Yl ); 
TESTf INFO[ XM , Y ] ); 
TESTf INFO[ X, Y 11); 
TEST( INFOfX, Y+l 1 ); 
END; ( * PROCEDURE LOOK 



PROCEDURE WRITES^ X, Y, E: INTEGER); 
BEGIN 

CRTOBUF - . PUSH( CHR( ESC ) ) ; 
CRTOBUF" . PUSH( 'Y ' ); 
CRTOBUF' . PUSH(CHR( Y+31 ) ); 
CRTOBUF' . PUSH(CHR(X+31 ) ); 
IF E-0 THEN 

CRTOBUF' . PUSH( ' ' ) 
ELSE 

IF E<0 THEN 

CRTOBUF' .PUSH( 'R* ) 
ELSE 

CRTOBUF" .PUSH( 'W ) ; 
END; (* PROCEDURE WRITES *) 



( * WRITE TO SCREEN 
( * VT52 JUMP * ) 



( * RABBIT 
( * WOLF * ) 



ENTRY PROCEDURE ASS IGN( X , Y, E : INTEGER ) ; 

BEGIN 

INFO[X,Y] := E; (* UPDATE IN-MEMORY *) 
WRITES(X, Y,E); (* UPDATE SCREEN *) 

END; (* PROCEDURE ASSIGN * ) 

ENTRY FUNCTION CHANGE ( X , Y , E : INTEGER ) :BOO LEAN; 
BEGIN 

CHANGE :- FALSE; 

IF ( INFO[X, Y]-0 ) AND NOT STOP THEN (* FREE 
BEGIN 

INFO[X,Y] := E; (* UPDATE IN-MEMORY *) 
WRITES(X, Y,E); (* UPDATE SCREEN * ) 
CHANGE := TRUE; 
END; 
END; ( * FUNCTION CHANGE * ) 

ENTRY FUNCTION DONE( X , Y , E : INTEGER ): BOO LEAN; 



INTERRUPT PROCESS DLVJIN [ PRI0RITY-1 , VECTOR-* 100 ] ( I BUF : CRTPTR ) ; 
(* DEFAULT VECTOR =- #100 *) 
(' DEFAULT ADDRESS - K77777S60 *) 
VAR 

INTEGER; 
INTEGER; 
INTEGER; 
CHAR; 



CSRf «77777S60 1 
RUF[ #77777S6? 1 
CHRUF 



BEGIN 

REPEAT 

SUPSET; 
csr : 

DOIO; 
CHBUF 



6 4; 



BUF: 
CSR :- CSR 64; 
SUPRTN: 
IF CHRUF ■ THEN 

I BUF" . PUSHf CHR( ESC ) ) ; 
I BUF' . PUSHf CHR( CHRUF MOD 128)); 
['NT 1 1, FALSE; 
END: I' INTERRUPT PROCESS DLVJIN *) 



INTFRRUPT PROCESS DLVJOUTf PRIORITY - 1 , VECTOR - 
(' DEFAULT VECTOR - tt 120 M 
( • DEFAULT ADDRESS B77777S64 * ) 
VAR 

CSRf #77777Sf,4 1 INTEGER; 
RUEI »77777S6h 1 : INTEGER; 
CH : CHAR: 

BEGIN 

REPEAT 

OBUF' . POPC CH ) ; 
SUPSET; 

CSR : 6 4: 

BUF : - ORD( CH ); 



( OBUF : CRTPTR ) ; 



IX 



CSR : CSR 64: 
SUPRTN: 
UNTIL FALSE: 
END; ( * INTERRUPT PROCES.S ULVIOl 

PROCESS WOLF( X, Y. I ENERGY: INTEGER ) 
VAR 

ENERGY : INTEGER; 

ER : INTEGER; 

EW : INTEGER; 
INTEGER; 



( ' ONE INSTANCE PER WOLF 

CURRENT ENERGY LEVEL ' ) 

ENERGY LEVEL OF NEIGHBORING RABBITS " 
ENERGY LEVEL OF NEIGHBORING WOLVES * ) 
"REST" TTME BETWEEN ACTIVITIES * ) 



DLY 
BEGIN 

ENERGY :- I ENERGY : 
REPEAT 

ENERGY : ENERGY WANNUAL 
SCREEN . LOOKf X , Y , ER, EW ) ; 
IF ER< THEN 

ENERGY : ENERGY 4 ' ER 
ELSE 

IF EW. WCROWD THEN I " TOO MA 

ENERGY : ENERGY WANNUAL 
ELSE 

IF I EW > () ) ANI ' ( ENERGY • WFERT I LE 
i REAT )R . ( "REATEf X . Y . ENERGY ) : 
IE ENERGY- :> THEN 
ENERi;Y : ()• 
IF ENERGY .WMAX THEN 
ENERGY : WMAX: 
DLY : WMAX ENERGY: 
IE LEY. ENERGY THEN 

DLY : ENERGY: 
DELAYi DLY ) ; 
i INT II, SCREEN. DONEr X. Y ENERGY 
END: (' * PROCESS WOLF • 1 



ALWAYS >0 * ) 

ANNUAL ENERGY USAGE 
CHECK NEIGHBORS, * ) 
RABBITS TO EAT * ) 



OLVES 



PROCREATE 



I'HEN 
A VOI 1) BECOMING A RABBIT " ) 
CANNOT USE EXCESS ENERGY " ) 
REST BASED UPON ENERGY ' 1 



REST * ) 

DECIDE WHETHER STILL "ALIVE" 



Ri iCES.S RABBITi X , 


V" . I Kl 


J ERG 


' . INTEGE 




ONI! INSTANCE 


PER RABBIT 


AR 














ENERGY : I NTE 


;ER: 




UK RE NT 


ENERiA 


LEVEL ' ' 




ER : I NTE 


;er ■ 




ENER(.Y 


.eve:l ■• 


E NEIGHBORING 


RABBITS « ) 



ener<;y ekvei, of neighborin(; wolves 
•rest" time between activities ') 



JN 

ENERGY • IFNERi.Y 
REPEAT 

ENERiiY : ENERGY RANNUAL; 
SCREEN . LO'iKf X, Y , ER , EW ^ ; 
IE EW> WANNUAL THEN 
ENERGY . c 



ANNUAL ENERCiY USAi ,E 

CHE> K NE IGHBORS • ) 
EATEN BY WOLF • 1 



AND ("ENERGY. RFERTILE1 THEN 



PROCREATE 
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BEGIN 

CREATOR . CREATE f. X, Y, ENERGY ); 

IF ER< ROROWD THEN f * RABBITS LOVE A CROWD 
ENERGY : ENERGY +- 2 * RANNUAI. ; 
END: 



IF ENERGY- O THEN 

ENERGY : - O ; 
IF ENERGY' RMAX THEN 

ENERGY : RMAX ; 
Dl.Y : " ENERGY RMAX ; 
IF DLY<- ENERGY THEN 

DLY :- ENERGY; 
DELAYS DLY ) ; 
UNTIL SCREEN. DONE ( X,Y, ENERGY); 
END; (* PROCESS RABBIT *) 



AVOID BECOMING A WOLF » ') 
CANNOT USE EXCESS ENERGY * 
REST BASED UPON ENERGY * ) 



REST * ) 

DECIDE WHETHER STILL "ALIVE" 



PROCESS SHUTDOWN; 
VAR 



( * HANDLE TERMINATION 



CHAR ; 
INTEGER; 
INTEGER; 
INTEGER; 



INPUT CHARACTER * ) 

ABSORB EXCESS ATTEMPTS TO PROCREATE 



WAIT FOR TERMINAL INPUT 
NOTIFY SCREEN MONITOR *) 
TERMINATE PROCEATION " ) 



ENERGY 
BEGIN 

CRTIBUF~ . POPf CHK- 
SCREEN.KILL; 
CREATOR. CREATE ( 0, 
SHUTUP. WAIT; 
REPEAT ( ' HANDLE ANY EXTRANEOUS ATTEMPTS AT CREATION 

CREATOR. STARTUP C X, Y. ENERGY ) ; 
UNTIL ENERGY- O; 
END; f' PROCESS SHUTDOWN ") 



PROCEDURE PROCREATE; 
VAR 



INTEGER; 

INTEGER; 

INTEGER; 

( UV , DOWN , LEFT , RI GHT ) ; 

INTEGER; 



CREATE RABBITS AND WOLVES * ) 

(* CREATOR'S CURRENT POSITION 



ENERGY 
DIR 

DIRS - 
BEGIN 

FOR Y : 
BEGIN 

SCREEN. ASS I GNf XWOLF , Y, WINIT); ( * 
WOLFf XWOLF, Y, WINIT ); 

SCREEN. ASSIGNS XRABBIT, Y, RINIT ); ( ' 
RARBITf XRABBIT, Y, RINIT); 
END; 

DTR :- UP; (* CREATION DIRECTION *) 
REPEAT ( * CREATE OFFSPRING AS REQUIRED * ) 



CREATED 'S INITIAL ENERGY 
CURRENT DIRECTION ») 
DIRECTION COUNTER *) 



1 TO YMAX 1 DO (» INITIALIZE SCREEN *) 

( « A COLUMN OF WOLVES • 

( ' A COLUMN OF RABBITS 



CREATOR . STARTUP C X , Y , ENERGY ) ; 
IF ENERGY < >0 THEN 
BEGIN 

DIRS : 4; 
REPEAT 

TF DIR-RIGHT THEN 
DIR :- UP 



( * OBTAIN OPERATION REQUEST * ) 
f ' REQUEST FOR CREATION * ) 



TRY ALL FOUR DIRECTIONS 
CONSIDER NEXT DIRECTION 



ELSE 



SUOCi DIR ); 



II R 



IF Y > I THEN 

IF SCREEN. CHANGED X. Y 1 , ENERGY ) THEN 
BEGIN 

DIRS, : 0; f " SET FLAG • ) 

Y : Y I ; (> UPDATE DIRECTION 
END: 

IF Y*2 * YMAX THEN 

IF SCREEN . CHANGE ( X, Y+ 1 , ENERGY ) THEN 
BEGIN 

DIRS, : 0; ( * SET FIAG * ) 

Y :• Yll; (' UPDATE DIRECTION 
END: 

IF X, I THEN 

I F SCREEN . CHANGEf X I , Y , ENERGY ) THEN 
BEGIN 

DIRS : : i • SET FLAG * ) 
X : XI: i * UPDATE DI RECTI ON 
END' 
IF Xr? . XMAX THEN 

IF SCREEN .CHANGED X* I . Y. ENERGY ) THEN 
BEGIN 

DIRS : O : ( • SET FLAG ' ) 
X : XU; ( * UPDATE DIRECTION 
END: 



DIRS, : DIRS 1; 
UNTIL DIRS< O; 
IF DIRS'O THEN 

IF ENERGY'!) THEN 

RARBITf X, Y. ENERGY ) 
ELSE 

WOLFl X. Y . ENERCJY ); 



F 0. CANNOT DO CREATION 
REATE NEW RABBIT ' ) 



CREATE NEW WOLF 



UNTIL ENERGY ; (' SHUTDOWN PROVIDES SPECIAL 
SHUTUP . S IGNAL: I' SHUTDOWN HANDLES. EXTRANEO 
END: f" PROCEDURE PROCREATE *) 



•ODE FOR TERM I NAT K 
" CREATION REQUEST. 1 ' 



PROCEDURE PARAM: 
TYPE 

STRINGf, PACKED ARRAY ! 1 



( ' PROMPT USER FOR INPUT * ) 
)F CHAR; 
ROCEDURE PARAM INf X . Y : INTEGER; MS.G : STRI NGf, ; VAR VAL : I NTEGER ) ; 



vrs2 JUMP 



PROMPT MESSAGE 



VAR 

I : INTEGER: 
OH : CHAR: 
RFC [N 

CRTOBUF" . PUSHf <'HRf ESC ) ) ; 
CRTOBUF' . PUSHf ' Y ' ); 
CRTOBUF" . PUSHf OHRf Y + U ) ) ; 
CRTOBUF" . PUSHf OHRf X* )1 ) ) ; 
FOR I : 1 TO f, DO 

CRTOBUF' . PUSHf MS.Gf II); 
VAL : O; 
REPEAT 

CRT I HUE" . POPf CH ): 
IF f CH ■ ' • 1 AND < CH- ' ')' ) 
BEG I N 

VAL : VAL' 10t{ ORDf CH ) 
CRTOBUF' . PUSHf CH ); 
END 
ELSE 

IF CH<,CHR(CR) THEN (' UNREOi >GNI ZED 
CRTOBUF" . PUSHf CHR( BEL ', ); 
UN'I'iL .VAiSt'irn OR ,'('H CHR(CR)): 
END: ( • F'RO' FLUFF PARAMIN ') 



• READ 


AND D 


ECODE VALUE 


THEN 






ORDf ' 


' ) ) : 





PARAMIN'' XMAX+H . 1 . 'WINIT: ' 


.WINIT); ( 


PARAM INf XMAX 4 H . :' . 'RINIT: ' 


. R I N I T i : 


PARAMINf XMAX* » . '■ . ' WYRS : ' 


. WY R .' '• 'i : 


PARAMINf XMAX * » (.. ' RYRS : ' 


. RYRS , : I 


wannual : w:n;t :'iv wi p r:- 




WFFRTILF : '■•'WANNUAL: 




WCROWD < "WINIT: 




WMAX : r "WINIT 




R T N I T : RINIT: 


( 


(■'ANNUAL : RINIT DIV RYRS 




RFERTILE : ?* RANNUAI.; 




RCROWD : 1 'RINIT; 




RMAX : ? 'RINIT; 




' ' PROCEDURE PARAMS " ) 




N . • i'l-'i .c,l,'AM : .'.LANS ■ . 




NEWf ( RTIBUF ) ; 


( ' < 


DI.VS IN ( CRTIBUF ) ; 


( • : 


NEWf (-RTOBUF ) ; 


t ' ( 


DLV.IOUTC CRTOBUF 1 : 


( • : 



REPEAT 

CRTOBUF' . PUGH( CHRf ES 

CRTOBUF" . PUSHf 'H' ); 

CRTOBUF' . PUSHf C-HRf ES 

CRTOBUF- . PUSHf ' J ' ); 

PARAMS ; 

SCREEN . SETUP ; 

SHUTDOWN; 

PROCREATE; 

CREATOR . CREATEf 0,0,0 
UNTIL FALSE; 
END. (* PROGRAM ISLAND ') 



INITIAL ENERGY FOR WOLVES ' ) 
INITIAL ENERGY FOR RABBITS •) 
NORMAL LIFETIME FOR WOLVES '1 
NORMAL LIFETIME FOR RABBITS ♦ 

WOLF VALUE." ARE POSITIVE *) 



RABBIT VALUES. ARE NEGATIVE 



'REATE INPUT BUFFER • ) 
STARTUP INPUT PROCESS ') 
'REATE OUTPUT BUFFER * ) 
STARTUP OUTPUT PROCESS • 



vr',2 HOME OPERATION * ) 

VTS2 CLEAR,. SCREEN OPERATION 



ASK USER FOR PARAMETERS » ) 
INITIALIZE INTERNAL SCREEN * ) 
SETUP FOR EVENTUAL TERMINATION * 
RETURNS WHEN ALL TASKS COMPLETED 
TERMINATE SHUTDOWN » ) 
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An Introduction to Modula-2 
for Pascal Programmers 



By Lee Jacobson and Bebo White 

Jacobson, White, & Associates 
San Francisco, CA 



THE BACKGROUND AND HISTORY 
OF MODULA-2 

Modula-2 (like Pascal) was developed at the ETH- 
Zurich under the direction of Niklaus Wirth (Institut fur 
Informatik). Its development grew largely from a prac- 
tical need for a general purpose, efficiently implement- 
able systems programming language. The first 
production use of Modula-2 occurred in 1981. Dr. 
Wirth's book, 'Programming in Modula-2' was pub- 
lished by Springer- Verlag in 1982. 

It is virtually impossible to examine Modula-2 
without recognizing its roots in Pascal. In its original 
design, Pascal was intended to be a language suitable 
for teaching programming as a systematic discipline 
based on certain fundamental concepts clearly and nat- 
urally reflected within it. These concepts were largely 
centered around stepwise refinement of problem solu- 
tions and structured programming. 

Inasmuch as Pascal is basically an academic lan- 
guage, its widespread use for a variety of applications 
has clearly exceeded its design intention. Hence, many 
extensions to the original Pascal definition have been 
designed. Likewise, it has attracted as many critics as 
it has disciples. 

Modula-2 has assumed all of the positive features 
of Pascal, and has attempted to address its commonly 
recognized shortcomings. The result is a structured, 
modular, portable, readable, efficient, machine inde- 
pendent, flexible language. 

This paper will address the primary differences be- 
tween Modula-2 and Pascal with particular emphasis on 
some of those features which the authors consider quite 
significant. Programming examples will be given in both 
Modula-2 and Pascal. 

MODULA-2'S DIFFERENCES FROM PASCAL 

The Role of Modules in Modula-2 

Modules are the most important feature distin- 
guishing Modula-2 from Pascal. Relying heavily upon 
the concepts of scope and block, modules address the 
problem, usually found in large programs, of separating 
visibility from existence. In block-structured lan- 
guages, the range in which an object (e.g. a variable or 
procedure) is known is called the object's scope, and 
therefore, defines its visibility. However, an object's 
visibility also binds its existence, in that objects are cre- 
ated when the block in which they reside is entered and 
destroyed when the block is exited. It should be pos- 
sible to declare variables that maintain their values, but 
are visible only in a few parts of a program. Concur- 
rently, there is also a need for closer control of visibil- 
ity. A procedure should not be able to access every 



object declared outside of it when it only needs to ac- 
cess a few of them. 

Syntactically, modules closely resemble proce- 
dures, but they have different rules about visibility and 
the existence of their locally declared objects. Consider 
the following declarations: 



PROCEDURE Outside; 


PROCEDURE Outside; 


VAR x,y,z: INTEGER; 


VAR x,y,z: INTEGER; 


MODULE Mod; 




IMPORT x; 


(* no module here *) 


EXPORT a, PI; 




VAR a,b,c: INTEGER; 


a,b,c: INTEGER; 


PROCEDURE PI; 


PROCEDURE PI ; 


BEGIN 


BEGIN 


a : = a + 1 ; 


a : = a + 1 ; 


x : = a ; 


x : = a ; 


END PI; 


END; (* PI *) 


END Mod; 




END Outside; 


END; (* Outside *) 



The only syntactic difference between the module 
Mod and a normal Pascal procedure declaration are the 
reserved word beginning the declaration (MODULE 
instead of PROCEDURE) and the presence of IM- 
PORT and EXPORT declarations following the module 
heading. 

The semantic differences are more interesting. The 
objects declared within Mod (a, b, c) exist at the same 
time as the variables x, y, and z, and remain so as long 
as Outside is active. The objects named in Mod's IM- 
PORT list are the only externally declared objects vis- 
ible within Mod (x but not y or z). The objects declared 
in Mod's EXPORT list are the only locally declared ob- 
jects visible outside Mod. Thus, a and PI are accessible 
from Outside, but b and c remain hidden inside Mod. 

Specifically, a module can be thought of as a syn- 
tactically opaque wall protecting its enclosed objects, 
be they variables or procedures. The export list names 
identifiers defined inside the module that are also to be 
visible outside. The import list names the identifier de- 
fined outside the module that is visible inside. Gener- 
ally, the rules for modules are: 

1 . Locally declared objects exist as long as the en- 
closing procedure remains activated; 

2. Locally declared objects are visible inside the 
module and if they appear in the module's export list, 
they are also visible outside; 

3. Objects declared outside of the module are vis- 
ible inside only if they appear in the module's import 
list; 

The following example demonstrates the essence 
of modularity: 
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MODULE MainProgran 



MODULE RandomNumbers ; 
IMPORT TimeOfDay; 
EXPORT Random; 
CONST Modulus = 2345; 

Increment = 7227; 
VAR Seed : INTEGER; 

PROCEDURE Random* ) : INTEG 
BEGIN 

Seed := ( Seed+I nc reraent ) 
MOD Modulus; 

RETURN Seed; 
END Random; 

BEGIN (* RandomNumber *) 

Seed := TimeOfDay; 
END RandomNumber; 



BEGIN (* MainProgram *) 



UriteInt(Random( ) , 7); 



PROGRAM MainProgram; 
VAR Seed : INTEGER; 



END MainProgram. 



FUNCTION Random : INTEGER; 
CONST Modulus = 234S; 

Increment = 7227; 
BEGIN 

Seed := (Seed+Increment ) 

MOD Modulus; 
Random : = Seed; 
END; (* Random *) 



BEGIN (* MainProgram *) 
Seed := TimeOfDay; 



Uriteln(Random, 7); 



END. (* MainProgram *) 



The random number generator in these examples 
uses a seed variable to generate the next random num- 
ber. Thus, the seed must maintain its value across func- 
tion calls. The program on the right shows the classical 
Pascal solution. Notice that Seed's declaration is at the 
top of the program, while its initialization is forced to 
the bottom. Two obvious disadvantages arise from the 
scattering of Seed across the face of the program: 

1. Its occurences become hard to find, especially 
in a large program; 

2. It becomes accessible to every other procedure 
in the program even though it is used only by Random; 

The example on the left demonstrates the useful- 
ness of the module structure. The only object visible to 
the ouside world is the procedure Random, while all 
objects pertaining to the random number generator are 
contained in one place. Note that the module 
RandomNumber contains both declarations and a 
statement part. Module bodies are the (optional) out- 
ermost statement parts of module declarations and serve 
to initialize a module's variables. Although subject to 
the module's restrictive visibility rules, module bodies 
conceptually belong to the enclosing procedure rather 
than the modules themselves. Therefore, module bod- 
ies are automatically executed when the enclosing pro- 
cedure is called. 

Relaxed Declaration Order 

New Pascal users are often frustrated and con- 
fused by the enforced declaration and definition block 
structure required within the program skeleton. De- 
spite the emphasis on modules, blocks still play an im- 
portant part in Modula-2: implementation modules, 
program modules, internal modules, and procedures are 
all declared as blocks. Differences from Pascal include 
relaxed order of declarations, termination of all blocks 
by a procedure or module identifier, and the optional 
nature of block bodies. 

Pascal imposes a strict order on the declaration of 
objects; within any given block, labels must be declared 



before constants, constants before types, and so on. 
Modula-2 eliminates this restriction — declarations can 
appear in any order. Programs containing a large num- 
ber of declarations are easier to read and understand 
when related declarations are grouped together (re- 
gardless of their kind). 

The following is an example of relaxed declaration 
order: 

MODULE Xlator; 

CONST MaxsSym = 102<4; 

TYPE SymBuffer = A RRA Y I 1 . . MaxSya J OF CHAR; 
VAR SymBuffl, SymBuff2: SymBuffer; 

CONST MaxCode = 512; 

TYPE CodeBuffer = ARRAY [ 1 .. MaxCode J OF BYTE; 

VAR CodeBuff: CodeBuffer; 

END Xlator. 



This example easily demonstrates how various re- 
lated declarations may be placed together in a Modula- 
2 program, whereas in a Pascal program they may be 
scattered due to strict block ordering. Relaxed decla- 
ration order not only improves readability but enables 
a logical ordering which may be very important in large 
programs. 

GOTO-less Programming In Modula-2 

Inasmuch as structured programming is often 
equated with elimination of the use of unconditional 
transfers, Pascal was designed to de-emphasize use of 
the GOTO statement. Still the GOTO statement and the 
LABEL 'type' were supported to allow programming 
cases where the Pascal logical structures were insuffi- 
cient. This meant that a GOTO statement was available 
for use in a situation which would otherwise have forced 
restructuring of the program logic. 

For example, consider the following two program 
segments: 



Remainder := Alpha MOD Beta; 
WHILE Remainder <> DO 
BEGIN 

Al pha : = Beta ; 
Beta : = Remainder ; 
Remainder := Alpha MOD Beta 
END; 



Remainder : = Alpha MOD Beta 
IF Remainder = THEN 

GOTO :20; 
Alpha := Beta; 
Beta := Remainder; 
GOTO 10; 



The example on the left avoids use of a GOTO by 
duplicating an operation. The example on the right, 
while using GOTOs is actually more explicit. 

Modula-2 does not support Pascal GOTO and LA- 
BEL. Instead it provides transfer mechanisms for uses 
under particular controlled circumstances. One of these 
mechanisms is the EXIT statement which permits pre- 
mature exiting of a loop. The following is a program 
segment in Modula-2 performing the same operation: 



LOOP 
Remainder : = Al i 
I F Remainder : = 
Al pha : = Beta ; 


pha 



MOD 
THEN 


Beta ; 
EXIT; 


Beta : 
END; 


: = Rema i nd 


er 







This example also illustrates the Modula-2 LOOP 
construct which operates as a Loop- Forever structure. 
When the EXIT statement is executed, program control 
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will transfer to the statement following the END state- 
ment which terminates the range of the LOOP. 

Additional examples of unconditional transfers 
supported by Modula-2 include the RETURN state- 
ment which is used to prematurely exit a procedure, 
and the HALT standard procedure which terminates 
the current program. 

Dynamic Array Parameters 

Another important distinction between Modula-2 
and Pascal involves the capability to declare dynamic 
array parameters. Modula-2 allows formal parameter 
types of the form: 

ARRAY OF T 

where T is an arbitrary base type. Note that the array 
bounds are omitted defining a dynamic array type which 
is compatible with all (one dimensional) arrays having 
the same base type T. 

The ramifications of this feature are widespread, 
through it, procedures are able to pass to other proce- 
dures (functions, etc.) arrays of unspecified size. (Index 
checking is accomplished by means of a new standard 
procedure HIGH). 

Perhaps the most important way in which dynamic 
array perameters may be used is in the area of string 
processing. This feature lifts the rigid Pascal restriction 
concerning the value assignment and comparison of 
string variables. No longer is it necessary that opera- 
tions may only be performed on strings which have the 
same length. 

Separate Compilation 

Separate compilation is allowed by the Modula-2 
compiler through the use of the compilation unit. Mod- 
ula-2 programs are constructed from two kinds of com- 
pilation units: program modules and library modules. 
Program modules are single compilation units and their 
compiled forms constitute executable programs. They 
are analogous to standard Pascal programs. 

Library modules are a different animal and form 
the basis for the Modula-2 library. They are divided into 
a definition module and an implementation module. Def- 
inition modules contain declarations of the objects which 
are exported to other compilation units. Implementa- 
tion modules contain the code implementing the library 
module. Both always exist as a pair and are related by 
being declared with the same module identifier. 

To understand the rationale behind dividing a li- 
brary module into separate definition and implemen- 
tation modules, consider the design and development 
of a large software system, such as an operating system. 
The first step in designing such a system is to identify 
major subsystems and design interfaces through which 
the subsystems communicate. Once this is done, actual 
development of the subsystems can proceed, with each 
programmer responsible for developing one (or more) 
of the subsystems. 

Now consider the project requirements in terms of 
Modula-2' s separate compilation facilities. Subsystems 
will most likely be composed of one or more compila- 
tion units. Defining and maintaining consistent inter- 
faces is of critical importance in ensuring error-free 



communication between subsystems. During the de- 
sign stage, however, the subsystems themselves do not 
yet exist. They are known only by their interfaces. 

The concept of a subsystem interface corresponds 
to the definition module construct. Thus, interfaces can 
be defined as a set of definition modules before sub- 
system development (i.e., design and coding of the im- 
plementation modules) begins. These modules are 
distributed to all members of the programming group, 
and it is through these modules that inter-subsystem is 
defined. Interface consistency is automatically en- 
forced by the compiler. 

Modula-2 Libraries 

The library is a collection of separately compiled 
modules that forms an essential part of most Modula-2 
implementations. It typically contains the following 
kinds of modules: 

1. Low-level system modules which provide ac- 
cess to local system resources; 

2. Standard utility modules which provide a con- 
sistent system environment across all Modula-2 
implementations; 

3. General-purpose modules which provide useful 
operations to many programs; 

4. Special-purpose modules which form part of a 
single program; 

The library is stored on one or more disk files con- 
taining compiled forms of the library module's compi- 
lation units. The library is accessed by both the compiler 
and the program loader — the former reads the com- 
piled definition modules while compiling and the latter 
loads the compiled implementation modules when ex- 
ecuting the program that imports library modules. 

A dependency arises between library modules and 
the modules that import them. Consider the example of 
a single library module. The compiler must reference 
the module's symbol file (a compiled definition module) 
in order to compile the implementation module. There- 
fore, the definition module must be compiled first. Once 
an implementation module has been compiled, its ob- 
ject file is tied to the current symbol file, as the object 
code is based on procedure and data offsets obtained 
from the symbol file. Similarly, when a program im- 
ports a library module, it is assumed that the symbol 
file offsets are accurate reflections of the corresponding 
object file. 

The Modula-2 language contains no standard pro- 
cedures for I/O, memory allocation, or process sched- 
uling. Instead, these facilities are provided by standard 
utility modules stored in the library. Standard utility 
modules are expected to be available in every Modula- 
2 implementation. Thus, by using only standard mod- 
ules, Modula-2 programs become portable across all 
implementations . 

The advantages of expressing commonly-used 
routines as library modules (rather than part of the lan- 
guage) include a smaller compiler, smaller run-time 
system, and the ability to define alternative facilities 
when the standard facilities prove insufficient. Disad- 
vantages include the need to explicitly import and bind 
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library modules, and occasionally a less flexible syntax 
imposed by expressing standard routines as library 
modules (as opposed to their being handled specially 
by the compiler). 

CONCLUSION 

The examples cited above can only provide a clue 
as to the power and flexibility of the Modula-2 language. 
It is the hope of the authors that they can pique signif- 
icant curiosity and interest into this amazing new pro- 
gramming tool. 
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Data Structures Using Pascal 

by A.M. Tenenbaum and M.J. Augenstein 

Prentice-Hall, 1981 

This book is intended as a text for a first course in 
data structures that is also a second course in program- 
ming. It presents all of the major data structures in- 
cluding stacks, queues, lists, trees, and graphs and 
describes recursion, list processing, sorting, and 
searching. An appendix provides a brief tutorial on Pas- 
cal. The emphasis is on practical techniques as opposed 
to theoretical concepts. All algorithms and examples 
are presented in Pascal. 

This book is excellent both for students and for 
practicing programmers who want to learn how to apply 
algorithms and data structures, whether or not they use 
Pascal. However it would not be appropriate, nor was 
it intended to be, for those merely wishing to learn 
Pascal. 

The authors employ several pedagogical tech- 
niques which others would do well to emulate. First nu- 
merous examples and sample programs are presented; 
the authors do not merely rely on textual explanations. 
In spite of this, there are very few typographical or al- 



gorithmic errors as so often is the case with multiple 
figures. Second, the same basic figure is repeated sev- 
eral times with each version successively updated to 
show the intermediate results of an algorithm. For ex- 
ample, an array is listed after each pass of a sorting al- 
gorithm so the reader can follow how the sort 
progresses. Third, algorithms are often presented as a 
combination of Pascal and pseudocode, thus highlight- 
ing the key points and not confusing the reader with 
such irrelevancies as initialization or I/O. Fourth, al- 
gorithms are presented several times with each new 
version a refinement of the previous one. 

My only criticisms would be that some of the al- 
gorithms could be simplified, frequently by more ap- 
propriate tests in "while" statements; and more use 
should be made of enumeration types — certain algo- 
rithms had a Fortran ring to them. However these are 
nitpicks: the book is excellent and is highly recom- 
mended to all PUG'ers. 

Arthur Salwin 

1405 Homeric Ct. 

McLean, VA 22101 
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SOFTWARE BUILDING BLOCKS, INC. 

ANNOUNCES PASCAL COMPILER FOR THE 

IBM PERSONAL COMPUTER® 

ITHACA, NY — A new company, Software 
Building Blocks, Incorporated, has been formed in Ith- 
aca, New York. The founders of the company are Jeff 
Moskow, author of the popular, highly acclaimed Pas- 
cal/Z® compiler marketed by Ithaca InterSy stems, Inc. ; 
Laurie Hanselman Moskow, formerly Software Prod- 
ucts Manager at InterSy stems; and William Kellner, a 
software engineer who has worked extensively with 
Moskow on the Pascal/Z compiler. 

The first product to be released by Software Build- 
ing Blocks, Inc. is a two-pass, locally optimizing Pascal 
compiler for the IBM Personal Computer. The initial 
release will run under PC-DOS® ; and a CP/M-86® ver- 
sion is planned for the near future. Based on the Pascal/ 
Z compiler, the Software Building Blocks implemen- 
tation, SBB Pascal® , closely follows the Jensen & Wirth 
definition of the language, with extensions designed to 
aid the professional programmer in serious software de- 
velopment. Extensions will include: variable length 
strings, direct file access, arbitrary precision BCD 
numbers for business arithmetic, functions returning 
structured values, separate compilation, exterenal rou- 
tines, include files, symbolic I/O of enumeration types, 
an ELSE clause for the CASE statement, overlays and 
chaining. 

The compiler package includes a sophisticated in- 
teractive Pascal debugger, written in SBB Pascal, de- 
signed to aid in isolating and correcting faults in Pascal 
programs. Features of the debugger include the abilities 
to set and display both absolute and conditional break- 
points; set watches on variables, procedures or func- 
tions; display and modify both global and local variables; 
display the procedure/function stack, current state- 
ment and module numbers, current run- time require- 
ments, and the last ten statements executed; trace 
through a program by statement number and proce- 
dure/function entry /exit; and more. 

Also included in the package is a screen editor, 
provided in SBB Pascal source. The editor's capabili- 
ties include: insertion and deletion of lines and char- 
acters, finding and/or replacing of strings, copying lines 
of text, autoindent for entering structured programs, and 
many other features. The editor makes use of the func- 
tion keys on the IBM PC to make editting as easy and 
efficient as possible. The editor is provided in source as 
an example of the advantages of programming in SBB 
Pascal. The library routines are also provided in 8086 
assembly language source, and many other example 
programs are included as well. 

Software Building Blocks, Inc. intends to release 
the PC-DOS version of the compiler in June. For more 
information, contact Laurie Moskow, Software Build- 
ing Blocks, Inc., P.O. Box 119, Ithaca, New York, 
14851-0119,(607)272-2807. 

® CP/M-86 is a trademark of Digital Research, Inc. 



® IBM and IBM Personal Computer are registered 
trademarks of International Business Machines 
Corporation 

® Pascal/Z is a trademark of Ithaca InterSy stems , Inc . 

® PC-DOS is a trademark of International Business 
Machines Corporation 

® Software Building Blocks and SBB Pascal are trade- 
marks of Software Building Blocks, Inc. 



SAGE OPENS BOSTON DIVISION 

Sage Computer Technology, headquartered in 
Reno, Nevada, has announced the opening of its Bos- 
ton division. 

The purpose of the new facility is to provide re- 
gional support for dealers and users of the Sage line of 
16-bit microcomputers, and to expedite delivery of new 
units throughout the Eastern United States. 

A complete inventory of Sage IFs, Sage IV s, parts 
and literature is stocked, and a fully-equipped and 
staffed service department is maintained on the 
premises. 

According to Rod Coleman, Sage president, plans 
call for a total of nine such offices to augment the com- 
pany's domestic sales and support activities. "Regional 
support for our dealers and OEMS is a critical part of 
our marketing plan." 

Sage's Boston office is now open to dealers & 
OEMS, and is located at 15 New England Executive 
Park, Suite 120, Burlington, MA 01803. The telephone 
number is (617) 229-6868. 

More information about Sage micros is available 
from either Boston office or corporate office at 4905 En- 
ergy Way, Reno, Nevada 89502. Telephone (702) 322- 
6868. 

If agency contact is required, phone or write The Schraff 
Group, 18226 W. McDurmott, Suite E, Irvine, CA 
92714. Telephone (714) 540-8977. 



NEW, 16-BIT SAGE IV 

HAS WINCHESTER PLUS 

MULTI-USER CAPABILITY 

RENO , NEVADA — Sage Computer Technology 
has announced availability of the Sage IV, 16-bit (68000) 
supermicro. 

The new multi-user computer, which accommo- 
dates up to 6 simultaneous users, surpasses the consid- 
erable capabilities of the Sage II introduced in March, 
1982. 

Both machines are based on the 8 MHz 68000 pro- 
cessor, and both are capable of performing 2-million 
operations per second. According to Rod Coleman, Sage 
president, they offer performance comparable to that 
of high-end mini-computers at a mid-range to high-end 
business micro price. 

The Sage IV comes standard with 128K of main 
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memory which is expandable, optionally to a mega- 
byte. This represents an enormous jump from the 128K 
to 512K expandability of the Sage II, which in turn of- 
fers far greater capacity than the typical 64K, 8-bit 
computer. 

In addition, a 5 to 30Mb Winchester disk, either 
fixed or removable, is built into the Sage IV next to a 
5 l A inch floppy backup. Since there are no wait states, 
a 20K program loads from the floppy in 1 second, and 
from the hard disk in Vio second. 

The cabinet, though about \ x /i inches taller than 
that of the Sage II, is still deceptively small, measuring 
only 6W high, YLVi" wide and 16 3 4" deep. 

"There aren't any tradeoffs with either of these 
machines, said Coleman, 4 'the user doesn't have to give 
up software support to get high performance, because 
the Sages' p-System standard operating system is able 
to run hundreds of popular programs developed for 8- 
bit micros." 

More information may be had by contacting Sage 
Computer Technology, 35 North Edison Way, Suite 4, 
Reno, Nevada 89502. Telephone (702) 322-6868. 

If agency contact is required, phone or write The Schraff 
Group, 1325 Airmotive Way, Suite 175, Reno, Nevada 
89502. Telephone (702) 348-7339. 



NEW MODULA-2 MANUAL FEATURES 
TUTORIALS, STANDARD LIBRARY 

DEL MAR, CA, Jan. 21 — A 264-page Modula-2 
user's manual, featuring a language tutorial and stand- 
ard library definitions, is now available from Volition 
Systems here. 

Modula-2 is a new programming language designed 
by Niklaus Wirth to replace his earlier language, Pas- 
cal, in a wide range of real-world applications. Together 
with Wirth' s own specifications of the language, this 
manual provides a complete description of Volition's 
implementation of Modula-2, according to its author 
Richard Gleaves of Volition Systems. 

The manual is designed to be used with Wirth' s 48- 
page monograph which defines Modula-2 in a concise 
but informal style. The monograph is included with the 
manual. Wirth' s newly published book Programming 
in Modula-2 is also available from Volition. 

The manual contains a tutorial for Pascal program- 
mers that can make them comfortable with the language 
within a few hours and proficient within a week, Gleaves 
said. 

The name Modula-2 comes from MODUlar LAn- 
guage. It uses modules to facilitate the development and 
maintenance of large, complex systems. The language 
is especially useful in large industrial and commercial 
applications where it can save software developers both 
time and money. 

Modula-2 is designed to utilize standard software 
modules, which are defined in the new manual. These 
modules provide access to the facilities normally pro- 



vided by an operating system, such as program and pro- 
cess control; console and file I/O, including random 
access files and disk directory operations; and storage 
management. The standard software modules also in- 
clude utility routines for format conversion, strings, 19 
digit BCD arithmetic, and other facilities. 

The manual is divided into six sections. The Mod- 
ula-2 tutorial for Pascal programmers comprises about 
one-third of the book. 

In addition, there is an introductory section and 
sections defining the standard library modules, the util- 
ity library, a system document that describes the im- 
plementation of Modula-2 for UCSD Pascal® and a 
machine-specific implementation guide which includes 
information on machine specific library modules, in- 
terrupt handling, and machine-level data representation. 

The Modula-2 User's Manual, including Wirth' s 
Modula-2 report, is immediately available from Voli- 
tion Systems, P.O. Box 1236, Del Mar, CA 92014 for 
$35 per copy. Wirth' s book, Programming in Modula- 
2, published in 1982 by Springer- Verlag, can be ordered 
for $16. Further information about the programming 
language is also available from Volition Systems. 

Volition Systems concentrates on systems soft- 
ware development and on research and development in 
hardware and sotware. Since the company was founded 
in 1980, it has been a leader in the implementation and 
dissemination of the Modula-2 language and other high 
level languages and in the design and development of 
advanced computer architectures. 

For further information, contact: 

Volition Systems 

P.O. Box 1236, Del Mar, CA 92014 

(619) 481-2286 

® UCSD Pascal is a trademark of the Regents of the 
University of California. 



MODULA-2 USER'S MANUAL from Volition 
Systems (Del Mar, CA) describes Niklaus Wirth' s new 
programming language in a 264-page loose-leaf format, 
document contains a complete tutorial for Pascal pro- 
grammers, sections defining the standard library mod- 
ules and the utility library, and an implementation guide. 
The manual comes with a copy of Wirth' s 48-page tech- 
nical report on Modula-2. 

Modula-2 is particularly useful in large industrial 
and commercial applications where using standard 
modules facilitates development of large, complex sys- 
tems, according to Volition, which has pioneered in 
commercial implementations of the new language. The 
Modula-2 User's Manual is immediately available from 
Volition Systems, P.O. Box 1236, Del Mar, CA 92014 
for $35. 



For further information, contact: 

A. Winsor Brown 
(714) 891-6043 
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USUS FALL MEETING SET 
FOR WASHINGTON,D.C. 

WASHINGTON, D.C., June 3 —USUS, Inc., the 
UCSD Pascal User's Society, will hold its semi-annual 
national meeting at the Crystal City Hyatt Hotel here 
October 14-16, according to Robert Peterson, USUS 
president. 

In conjunction with the meeting, USUS will spon- 
sor two free tutorials — an introduction to the p-Sy stem 
and an introduction to UCSD Pascal, including Apple 
Pascal.* 

The meeting will feature technical presentations, 
hardware and software demonstrations, language tu- 
torials, special interest group meetings and software li- 
brary exchange. Also planned are expert user and major 
vendor panels. Election of officers will be held. 

"Non-USUS members are welcome to register and 
attend any or all of the meeting programs," Peterson 
noted. 

USUS (pronounced use-us) represents users of the 
UCSD Pascal System and its derivatives including the 
UCSD p-System and Apple Pascal. It is the most widely- 
used, machine-independent software system. The so- 
ciety is non-profit and vendor independent. 

The UCSD Pascal System has more than 100,000 
users and is capable of running on nearly any computer. 
It was developed at the University of California San 
Diego to facilitate software portability. 

Among the special interest group meetings sched- 
uled for the Washington meeting are those for users of 
IBM Personal Computers, Apple, DEC, Texas Instru- 
ments, NEC Advanced Personal Computer, the IBM 
display writer and Sage Computer Technology 
computers. 

Also meeting will be those interested in application 
development, graphics, communications, file access, 
Modula-2, UCSD Pascal compatibility and the Ad- 
vanced System Editor. 

The software library, with significant recent ac- 
quisitions, will be available for reproduction on various 
diskette formats. Members at the meeting will be able 
to copy the library onto their own disks for $1.00 each. 

Those registering for the meeting before Septem- 
ber 23 will qualify for the pre-registration price of $25. 
Checks should be made payable to USUS and mailed 
to USUS Meeting Committee, P.O. Box 1148, La Jolla, 
CA 92038. Registration at the door will be $35 and will 
begin at 10 a.m. Friday, October 14. 

Hotel reservations should be made directly with 
the Crystal City Hyatt hotel (adjacent to Washington 
National Airport), 2799 Jefferson Davis Highway, Ar- 
lington, VA 22202, (703) 486-1234. Additional meeting 
information is available from Thomas Woteki, Infor- 
mation Systems Inc. , 3865 Wilson Blvd. , Suite 202, Ar- 
lington, VA 22203, (703) 522-8898. 

USUS was created to promote and influence the 
development of the UCSD Pascal System and to pro- 
vide users and vendors with a forum for education and 
information exchange about it. Annual membership in 
the society is $25 for individuals and $500 for institutions . 

* Apple Pascal is a trademark of Apple Computer, Inc. 
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UCSD PASCAL USERS FORM 
TEXT EDITOR INTEREST GROUP 

SAN FRANCISCO, CA, June 15, 1983 — A spe- 
cial interest group (SIG) for users of the Advanced Sys- 
tem Editor (ASE) for the UCSD Pascal System has been 
formed by USUS, the UCSD Pascal System User's So- 
ciety, according to Robert W. Peterson, president of 
the society. 

The new SIG will be chaired by Sam Bassett, of 
San Francisco, CA. "The ASE SIG will be open to any 
USUS member who is using or thinking about getting 
the Advanced System Editor." Peterson said. 

The new ASE SIG allows members to share com- 
mon problems and solutions and will serve as a clearing 
house for information relating to implementation, op- 
timization and use of ASE on a variety of systems which 
have the UCSD p-System installed. 

The SIG has established a liaison with Volition 
Systems of Del Mar, CA, the creators of ASE. It will 
coordinate relevant contributions to the USUS Soft- 
ware Exchange Library and to USUS News, the soci- 
ety's quarterly newsletter, Bassett said. Furthermore, 
SIG members may communicate via electronic mail un- 
der USUS sponsorship. 

The next ASE SIG meeting will take place at the 
USUS semi-annual national meeting in Washington, 
D.C., October 14-16. In addition to the ASE and other 
SIG sessions, the USUS meeting will feature tutorials 
on UCSD Pascal and the UCSD p-System. Also on the 
agenda are technical presentations, software exchange, 
hardware and software demonstrations and an expert 
user panel. 

Membership in the ASE SIG is free of charge to 
any member of USUS, the vendor- independent, non- 
profit user's group for the UCSD Pascal System. An- 
nual membership in the society is $25 for individuals 
and $500 for institutions. 

USUS (pronounced use-us) was founded in 1980 
to promote and influence the development of the UCSD 
Pascal System and to provide a forum for education and 
information exchange about it. Further information on 
USUS is available from the Secretary, USUS, P.O. Box 
1148, La Jolla, CA 92038. 



PASCAL USER'S SOCIETY 
FORMS MODULA-2 GROUP 

SAN DIEGO, CA, May 26 — USUS, the UCSD 
Pascal System User's Society, has formed a special in- 
terest group (SIG) for users of the new Modula-2 pro- 
gramming language, according to Robert W. Peterson, 
USUS president. 

The new SIG will be chaired by David Ramsey of 
Corvus Systems, Inc. (San Jose, C A). The group was 
formed when USUS held its semi-annual national meet- 
ing here last month. Modula-2 runs on Version II based 
UCSD Pascal Systems. 

"The Modula-2 SIG will be open to any USUS 
member using or wanting to investigate this language," 
Ramsey said. "It is, to my knowledge, the first user's 
group devoted to communication about Modula-2." 
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The new language was created by Niklaus Wirth 
to answer difficulties encountered with his earlier lan- 
guage, Pascal. "As people discover the benefits of 
working in this new language, we expect this SIG to 
expand repidly," Ramsey said. 

Implementations of the Modula-2 programming 
language are available for the Apple II, //e and /// com- 
puters, the IBM Personal Computer, the 68000-based 
Sage 2 and 4, the Texas Instruments 9900, the Scenic 
One and Z80/8080-based systems, according to Joel J. 
McCormack of Volition Systems (Del Mar, CA). 

Volition is the only current supplier of the language 
for use on microcomputers and supplies systems as well 
as the Modula-2 language to run on them. 

"Because the language is modular, users spend less 
time writing and maintaining code," McCormack said. 
"Standard library modules provide Modula-2 with a 
standard operating environment, and programs created 
within it are portable across all Modula-2 systems." 

The new Modula-2 SIG will enable users to share 
experiences with others using the language or devel- 
oping applications in it, Ramsey said. "We expect to 
serve as a clearing house for user information in this 
fast-changing area." 

One of the first goals of the SIG is creation of a 
user's library of Modula-2 programs that will be in- 
cluded in the USUS library, Ramsey noted. It will be 
compiled by Curt Snyder of Allergan Pharmaceuticals 
(Irvine, CA). 

Membership in the Modula-2 SIG is free of charge 
to any member of USUS, which is the vendor-inde- 
pendent, non-profit user's group for the UCSD Pascal 
System. Annual membership in the society is $25 for 
individuals and $500 for institutions. Further informa- 
tion on USUS is available from the Secretary, USUS, 
P.O. Box 1 148, La Jolla, CA 92038. 

For those wanting to know more about the Mod- 
ula-2 SIG, Ramsey can be reached at Corvus Systems, 
2029 O'Toole Avenue, San Jose, CA 95131, (408) 946- 
7700, extension 267. 

Volition Systems has pioneered in the implemen- 
tation and dissemination of the Modula-2 language. 
Further information about Modula-2 and available im- 
plementations may be obtained from Tracy Barrett, 
Volition Systems, P.O. Box 1236, Del Mar, CA 92014, 
(619) 481-2286. 



PASCAL USERS, VENDORS GATHER 
FOR USUS SAN DIEGO MEETING 

SAN DIEGO, CA, May 2 — USUS, the UCSD Pascal 
System User's Society, formed five new special inter- 
est groups (SIG's) and made plans for a first regional 
chapter at its well-attended, semi-annual national meet- 
ing here last week, according to Robert W. Peterson, 
USUS president. 

In addition, two vendors of UCSD Pascal products 
— Apple Computer, Inc. and Volition Systems — chose 
the occasion to reveal new offerings. 

''Record meeting attendance reflects the users' 
commitment to increased knowledge about use of the 
UCSD Pascal System," Peterson said. "More than 240 



attended and actively participated in special interest 
group and committee meetings, panel discussions and 
the four tutorials." 

Keynote speaker for the event was Andrew Green- 
berg, designer and co-author of the popular Wizardry 
games. He told how he had solved the challenge of put- 
ting a very large program like Wizardry on a microcom- 
puter with limited disk and main memory storage. 

"Greenberg offered members valuable insights into 
program design, structure and implementation," Pe- 
terson noted. 

The new special interest groups are for application 
developers and for users of the NEC Advanced Per- 
sonal Computer, the IBM Display Writer, the Ad- 
vanced System Editor from Volition Systems, and the 
Modula-2 programming language. In addition, plans for 
the national organization's first local group in Southern 
California were discussed. 

USUS already has SIG's for users of Apple, DEC, 
Texas Instruments and Sage computers, the IBM Per- 
sonal Computer and for those interested in communi- 
cations, word processing and UCSD Pascal 
compatibility. 

Of particular interest to those attending the meet- 
ing was the demonstration area, where the latest ad- 
vances in UCSD Pascal hardware, software and 
applications were demonstrated on 20 different ma- 
chines, Peterson said. 

At the meeting, Apple Computer, Inc., which has 
an installed base of some 82,000 Pascal development 
systems on its Apple II and Apple /// computers, an- 
nounced that updates of Apple II Pascal and Apple /// 
Pascal will be available this year. 

Apple revealed that Version 1.2 of Apple II Pascal 
will be available in the fourth quarter of 1983 and will 
provide support for all features of the Apple He includ- 
ing extended memory support for the 128K He. Version 
1.2 also makes available facilities for integrating into 
the UCSD Pascal environment in a natural way addi- 
tional mass storage devices such as hard disks. 

Apple also confirmed that Version 1.1 of Apple /// 
Pascal will be available at the end of June 1983. Its most 
notable feature is the Standard Apple Numeric Envi- 
ronment that fully implements the IEEE standard for 
floating point arithmetic. 

Volition Systems demonstrated the new Modula-2 
programming language running for the first time on an 
IBM Personal Computer. USUS members formed a 
Modula-2 SIG at the meeting to exchange information 
about the language. It will be chaired by Dave Ramsey, 
Corvus Systems (San Jose, CA). 

The chairman of the newly formed application de- 
veloper' s SIG is Dennis Gallinat, Apple Computer (Cu- 
pertino, CA), and Samuel Bassett, Bassett Information 
Processing (San Francisco, CA) is chairing the Ad- 
vanced System Editor SIG. 

Lane Sharman, Resource Systems Group (Del Mar, 
CA) will head the Special Interest Group for the IBM 
Display Writer, and the NEC Advanced Personal Com- 
puter SIG will be chaired by George Symons, TICOM 
Systems, Inc. (Marina del Ray, CA). 

The fall USUS meeting will be held in Washington, 
D.C., at the Hyatt Regency Crystal City, October 14- 
16, 1983. Further information is available from the Sec- 
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retary, USUS, P.O. Box 1148, La Jolla, CA 92038. 

USUS (pronounced use-us) is a vendor-independ- 
ent, non-profit user's group for the most widely used, 
machine-independent software system — the UCSD 
Pascal System, and its successors such as the Apple 
Pascal System and the UCSD p-System. 

USUS was created to promote and influence the 
development of the UCSD Pascal System and to pro- 
vide a forum for education and information exchange 
about it. USUS has institutional as well as individual 
members in more than 20 countries. Annual member- 
ship in the society is $25 for individuals and $500 for 
institutions. 



VOLITION DEMONSTRATES 
MODULA-2 FOR IBM PC 

DEL MAR, CA, May 3 — Volition Systems here 
has demonstrated Niklaus Wirth's new Modula-2 pro- 
gramming language running for the first time on the IBM 
Personal Computer. 

The new implementation was demonstrated for 
members of USUS, the UCSD Pascal 1 System User's 
Society, at its semi-annual national meeting in San Diego 
last week. Modula-2 will be included as part of Voli- 
tion's complete software development system. 

"Modula-2 is proving especially valuable in large 
industrial and commercial applications where standard 
software modules can save time and money in program 
development and maintenance," according to Joel J. 
McCormack of Volition Systems. 

"Now our new implementation will make these 
savings possible on the IBM PC. Our software devel- 
opment system will even run efficiently on 64K PC's," 
he continued. "And the availability of Modula-2 on the 
IBM PC should make the language even more attractive 
to application developers." 



The IBM PC implementation will significantly ex- 
pand the availability of Modula-2. Current Volition ver- 
sions are based on the 6502 (including Apple II 2 and 
Apple /// computers), the 8080/Z80, TI 9900, and the 
68000. 

Niklaus Wirth developed Modula-2 (from MOD- 
ular LAnguage) to replace his earlier language, Pascal. 
Whereas Pascal was intended as a teaching language, 
Modula-2 is expressly designed for use in a wide range 
of real- world applications, and it offers great flexibility 
in the development of large, complex systems. 

The implementation for the IBM PC is expected to 
be available in the third quarter of 1983, McCormack 
said. The system will include Modula-2 and Pascal 
compilers, the modula library, the powerful ASE text 
editor, V-NIX® command shell (that provides a UNIX 3 - 
like programming environment), and a complete set of 
utility programs for file manipulation and electronic mail 
communication. 

Volition Systems concentrates on systems soft- 
ware development and on research and development in 
hardware and software. Since the company was founded 
in 1980, it has led in the implementation and dissemi- 
nation of the Modula-2 language and other high-level 
languages and in the design and development of ad- 
vanced computer architectures. 

For further information, contact: 
Volition Systems 

P.O. Box 1236, Del Mar, CA 92014 
(619) 481-2286 



1 UCSD Pascal is a trademark of the Regents of the 
University of California. 

2 Apple II and Apple /// are trademarks of Apple Com- 
puter, Inc. 

3 UNIX is a trademark of Bell Laboratories. 
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0. DATE Apr# 28 > 1983 

1 IMPLEMENTOR/MAINTAINER/DISTRIBUTOR r Give a person, address and phone number *; 

Robert Reimiller 
OmegaSof t 
P.O. Box 842 
Camarillo, CA 93010 
(805) 987-6426 

2. MACHINE/SYSTEM CONFIGURATION (* Any known limits on the configuration or support software required, e.g. 
MC 6 8 09 PrOCeS SOr operating system V 

Running Moos, 05-9 , or Flex OS 
Requires 48K to 56K (Recommended) 



3. DISTRIBUTION ( m Who to ask. how it comes, in what options, and at what price *) 

rlorth America: From Omega Soft 

International: From OmegaSof t or distributors in Germany, Switzer- 
land, Great Britain, Australia, Sweden, and the Netherlands, Price 
is $425 to $475 for Compiler, Debugger, and Runtime* 
Relocatable Assembler/Linker available for $125 to $150. 

4. DOCUMENTATION r What is available and where •) 

220 pg. Pascal manual with complete syntax and installation 
instructions. 

5 MAINTENANCE C Is it unmaintained. fully maintained, etc? *) 

Yearly maintenance is $100 to $125 

6 STANDARD I* How does it measure up to standard Pascal? Is it a subset? Extended? How. m ) 

Complete ISO standard except packed variables and procedural para- 
meters. Scored 92% on conformance section of validation suite. 
ISO report in manual. Extended for real time and industrial 
control apnlications. 



7 MEASUREMENTS r Of its speed or space •} 

Warshalls Algorithm: procedure size=270 bytes, 
Kxecution time=9.7 seconds 

8. RELIABILITY ( m Any information about field use or sites installed *) 

Over 400 sites installed. 
Over 4000 sites installed. 

9. DEVELOPMENT METHOD r How was it developed and what was it written in? */ 

From scratch in assemble language. 

10 LIBRARY SUPPORT (* Any other support for compiler in the form of linkages to other languages source libraries, etc *) 

Optional libraries to handle AMD9511 APU CHIP, and Multi-Taskina 
Primatives. 
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Pascal Processor Identification 

Host Computer: Smoke Signal Broadcasting Chief- 
tain 95228 12 W10 running the OS-9 operating system. 

Host Computer Requirements: MC6809 processor, 
minimum of 48K bytes of memory , 2 or more disk drives, 
running the OS-9, MDOS, XDOS, DOS69, or FLEX 
operating system. 

Processor: OmegaSoft pascal version 2.10 

Test Conditions 

Tester: R.D. Reimiller 

Date: June 1982 

Validation Suite Version: 3.0 



Test 6.9.3-1: Standard I/O devices may not be re- 
defined if declared. 

Test 6.9.3.5.1-1: Real numbers written out in float- 
ing point format always have six digits to the right of 
the decimal point. 

DEVIANCE TESTS 

Number of deviations correctly detected = 83 

Number of tests showing true extensions = 45 (22 

reasons) 

Number of tests not detecting erroneous deviations = 

9 (6 reasons) 

Details of Extensions 



General Introduction to the OmegaSoft Implementation 

The OmegaSoft Pascal compiler was developed to 
provide the users of the 6809 processor with a fast and 
efficient way to develop code capable of running on the 
host development system or installed into a target system. 
The compiler is aimed primarily at industrial applica- 
tions such as process control and instrumentation. Due 
to the nature of these applications many extensions were 
added such as byte arithmetic, long integers, dynamic 
length strings, modular compilation, and versatile vari- 
able addressing. As a secondary requirement it was de- 
sired that the compiler be able to accept a Pascal program 
written in ISO standard Pascal wherever possible. 

CONFORMANCE TESTS 

Number of tests passed = 144 
Number of tests failed = 12 (9 reasons) 

Details of Failed Tests 

Test 6.4.2.3-3: If an enumerated type is defined in 
the index declaration part of an array its values cannot 
be referenced until the array declaration is complete. 

Test 6.4.2.3-4: If an enumerated type is defined in 
a record its values cannot be referenced until the record 
declaration is complete. 

Tests 6.6.3.1-4, 6.6.3.4-1, 6.6.3.4-2, and 6.6.3.5-1: 
Procedures and functions cannot be passed as 
parameters. 

Test 6.6.5.4-1: Pack and Unpack procedures are not 
supported. 

Test 6.7.2.2-3: Failed on MOD using a negative 
dividend. The Jenson/Wirth "remainder after divi- 
sion" method is used rather than the method specified 
in the ISO standard. 

Test 6.8.2.4-1: Non-local GOTO' s are not allowed. 

Test 6.8.3.9-1: Assignment to the control variable 
of a FOR loop occurs after the evaluation of the first 
expression. 
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Test 6.1.5-4: No digits are needed after the decimal 
point in a real number. 

Tests 6.1.6-4 and 6.1.6-5: Labels may be a positive 
integer constant. 

Tests 6.1.7-5, 6.4.3.1-3, 6.4.3.1-4, 6.6.3.3-5, 6.9.3.2- 
2: All variables are packed at the byte level, the re- 
served word "Packed" is ignored in any type 
declaration. 

Tests 6.1.7-6, 6.1.7-7, 6.1.7-8, 6.4.3.2-5: Strings, 
characters, and arrays of less than 127 elements are all 
compatible. 

Tests 6.1.7-11 and 6.4.5-12: Strings are dynamic 
length, allowable length is from (null string) to 126. 

Tests 6.2.1-8 and 6.2.1-10: Label, const, type, and 
var declaration sections can be in any order and re- 
peated multiple times until a procedure/function dec- 
laration or "begin" is encountered. 

Test 6.3-9: In any context where a constant is ac- 
ceptable an expression with a constant value may be 
used. 

Test 6.4.2.3-5: All enumerated type values are 
compatible. 

Test 6.4.3.3-8: The values of the case constants in 
a record variant declaration are not used, access is pro- 
vided to all variants at all times. 

Test 6.4.5-7: All subranges of the same type are 
compatible. 

Tests 6.4.5-8 and 6.4.5-13: Arrays of the same size 
are compatible. 

Tests 6.4.5-9 and 6.4.6-7: Records of the same size 
are compatible. 

Test 6.4.5-10: All pointers are compatible with other 
pointers or the type "Hex". 

Test 6.6.2-5: Any type with a size of less than 128 
bytes can be used as a function return type. 

Test 6.6.6.3-2: Trunc and round can have integer 
or longinteger parameters. 

Test 6.7.2.3-2: Logical operators are valid for char- 
acter and integer expressions. 

Test 6.7.2.5-6: Arrays of the same size can be com- 
pared. Records of the same size can be compared. 
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Test 6.8.2.4-2: Goto between branches of an If 
statement are allowed. 

Test 6.8.2.4-3: Goto between branches of a Case 
statement are allowed. 

Tests 6.8.3.5-7 and 6.8.3.5-8: Subrange Case state- 
ment constants are allowed. 

Tests 6.8.3.9-5, 6.8.3.9-6, 6.8.3.9-7, 6.8.3.9-10, 
6.8.3.9-12, 6.8.3.9-13, 6.8.3.9-14, 6.8.3.9-15, 6.8.3.9-16, 
and 6.8.3.9-17: No restrictions are placed on For state- 
ment control variable. 

Tests 6.8.3.9-8 and 6.8.3.9-9: If a For statement is 
entered and exited normally the control variable will be 
valid and contain the final value. If a For statement is 
not entered then the control variable will be valid and 
contain the initial value. 

Details of Deviations 

Test 6.1.8-5: A number can be terminated by a letter. 

Tests 6.2.1-5 and 6.2.1-6: Multiple siting for labels 
is not checked, nor are labels required to be sited at all. 

Tests 6.2.2-8, 6.3-6, and 6.4.1-3: Error in scope 
rules. 

Test 6.6.1-7: Unresolved forward function or pro- 
cedure declaration is not detected. 

Test 6.6.3.3-4: Use of a field selector as a parameter 
is not detected. 

Test 6.10-4: No check is made for duplication of 
program parameters. 

ERROR-HANDLING 

Number of errors correctly detected =19 
Number of errors not detected = 31 (13 reasons) 

Details of Errors Not Detected 

Tests 6.2.1-11, 6.4.3.3-11, 6.4.3.3-12, 6.4.3.3-11, 
6.5.4-2, and 6.6.2-9: No checking is made to verify 
whether or not a variable is accessed that has an un- 
defined value. Instead the variables are guaranteed to 
contain garbage unless initialized. 

Tests 6.4.3.3-1, 6.6.5.3-8, 6.6.5.3-9, and 6.6.5.3-10: 
Any tagfields or selector variables in a record variant 
are irrelevant to which variants can be accessed. 

Test 6.4.6-10: No subrange checking on parameter 
passing. 

Tests 6.4.6-12, 6.4.6-13, and 6.7.2.4-4: Overflow 
checking is done on sets based on byte count — not per 
element. 

Tests 6.5.4-1, 6.6.5.3-4, 6.6.5.3-5, and 6.6.5.3-11: 
Pointer value is not checked before use. 

Tests 6.5.5-2, 6.5.5-3, 6.6.5.3-6, and 6.6.5.3-7: There 
are no restrictions on the use of pointers or file buffer 
variables which are currently parameters or elements 
of a with statement. 

Test 6.6.5.2-5: To support random files a "get" is 
not executed until called as a procedure or when ac- 
cessing the file buffer without a valid element — not at 
the time of "reset". 

Test 6.6.6.4-7: Char and Hex variables "roll over" 
from maximum value to zero — it is not considered an 
error. 

Test 6.6.6.5-7: If eof is true — so is eoln — it is not 



considered an error to check eoln if eof is true. 

Tests 6.8.3.5-10 and 6.8.3.5-11: If no match in case 
statement, falls through with no error. 

Test 6.8.3.9-18: No restrictions on the control var- 
iable of a For loop. 

Test 6.8.3.9-1: At the completion of a For loop the 
control variable is valid and has the final value. 

Tests 6.9.3.2-5 and 6.9.3.2-5: Writing of real num- 
bers with no digits past the decimal point is permissible. 

QUALITY MEASUREMENT 

Number of tests run = 52 

Number of tests incorrectly handled = 5 

Results of Tests 

4 'Synthetic Benchmark" — execution time 1 min- 
ute, 10 seconds. 

"GAMM measure" — execution time 1 minute, 40 
seconds for N = 1000 

procedure calls — execution time 40 seconds 

identifiers are significant up to 120 characters. 

source lines may be up to 120 characters. 

no reasonable limit on number of real literals 
allowed. 

no reasonable limit on number of strings allowed. 

if a line of code is incorrectly part of an unclosed 
comment the compiler will signal that no code was gen- 
erated for the line. 

at least 50 types may be declared in a program. 

no reasonable limit on number of labels, but there 
can be a maximum of 8 forward referenced goto's in a 
block. 

at least 128 constant definitions are allowed per 
constant declaration part. 

at least 128 procedures are permitted in a program. 

maximum size for an array or record or for any var- 
iable section is 32750 bytes. 

at least 8 index types can appear in an array type. 

at least 128 case-constant values are permitted in 
a variant record. 

at least 50 record- sections can appear in the fixed 
part of a record. 

at least 30 distinct variants are permitted in a record. 

"Warshall's algorithm" procedure size = 270 
bytes, execution time = 9.7 seconds. 

considerably less than 300 ^identifiers are allowed 
in a declaration list (actual number depends on length 
of identifier). 

at least 8 dimensional array is allowed. 

procedures may be nested to at least 15 levels. 

at least 30 formal parameter sections can appear in 
one parameter list. 

the dispose in the standard heap manager is a 
dummy, a more complex heap manager is available. 

deeply nested function calls are allowed (at least 
6). 

deeply nested compound statements are allowed 
(at least 25). 

a procedure may have at least 300 statements. 

deeply nested if statements are allowed (at least 
25). 

at least 256 case constants are allowed. 
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at least 300 constants are allowed in a case-con- 
stant list. 

case statements can be nested to at least 15 deep. 

repeat loops can be nested to at least 15 deep. 

while loops can be nested to at least 15 deep. 

for loops can be nested to at least 15 deep. 

with statements can be nested to at least 15 deep. 

recursive I/O can be used with the same file for the 
second I/O action. 

at least 30 variable-accesses can appear in a read 
or readln parameter list. 

at least 30 write-parameters can appear in a write 
or writeln parameter list. 

data written on the output field appears regardless 
of the omission of a line marker. 

IMPLEMENTATION-DEFINED 

Number of tests run = 12 

Number of tests incorrectly handled = 1 

Details of Implementation-Defined Features 

Tests 6.1.9-5 and 6.1.9-6: alternate symbols are 
available for comments, array indices, and pointers. 

Test 6.4.2.2-10: Maxint is 32767 

Test 6.4.3.4-5: maximum range of set elements is 
0..1007 

Test 6.6.6.2-11: Base = 2, Bits of mantissa = 24, 
not rounding, minimum value = 2.710506E-20, maxi- 
mum value = 9.223372E+ 18 

Tests 6.7.2.3-3 and 6.7.2.3-4: Boolean expressions 



are fully evaluated. 

Tests 6.8.2.2-1 and 6.8.2.2-2: In an assignment 
statement evaluation of the expression is done before 
the selection of the variable. 

Test 6.8.2.3-2: When a procedure is called the pa- 
rameters are evaluated in forward order. 

Test 6.9.3.2-6: Default field widths are: Integers = 
10, Boolean = 6, Real = 16, Longinteger = 16, Hex = 
6. 

Test 6.9.3.5.1-2: Real values written in floating point 
format have 2 exponent digits. 

Test 6.9.3.6-1: Boolean values written in the de- 
fault fieldwidth have the format as shown (between 
quotes) " TRUE" and " FALSE". 

Details of Tests Incorrectly Handled 

Tests 6.6.6.1-1: Functions are not allowed to be 
passed as parameters to a procedure. 

Level 1 Tests — Not applicable 

EXTENSIONS 

Extension present = 1 

Result of Extension 

Test 6.8.3.5-16: An otherwise clause is allowed on 
a case statement. 

PUG 
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Membership July 1983 

Pascal News 

2903 Huntington Road 
Cleveland, Ohio 44120 

Please enter my 

□ New or □ Renew 

membership in Pascal Users Group. I understand I will receive "Pascal News" whenever it is published in this 
calendar year. 

Pascal News should be mailed 

1 yr. □ in USA $25 □ outside USA $35 □ AirMail anywhere $60 

3yr. □ in USA $50 □ outside USA $80 □ AirMail anywhere $125 

(Make checks payable to: "Pascal Users Group," drawn on USA bank in US dollars) 



Enclosed please find US $_ 
on check number 



(Invoice will be sent on receipt of purchase or- 
ders. Payment must be received before news- 
letter will be sent. Purchase orders will be billed 
$1 for additional work.) 

(I have difficulty reading addresses. Please forgive me and type or print clearly.) 
My address is: 



NAME 
ADDRESS 



PHONE 

COMPUTER 

DATE 

□ This is an address correction here is my old address label: 
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JOINING PASCAL USER GROUP? 

Membership is open to anyone: Particularly the Pascal user, teacher, maintainer, implementor, distributor, 
or just plain fan. 

Please enclose the proper prepayment (check payable to "Pascal User's Group"). 

When you join PUG any time within a year: January 1 to December 31 , you will receive all issues Pascal 
News for that year. 

We produce Pascal News as a means toward the end of promoting Pascal and communicating news of 
events surrounding Pascal to persons interested in Pascal. We are simply interested in the news ourselves 
and prefer to share it through Pascal News. We desire to minimize paperwork, because we have other work 
to do. 



RENEWING? 

• Please renew early (before November) and please write us a line or two to tell us what you are doing with 
Pascal, and tell us what you think of PUG and Pascal News. 

ORDERING BACK ISSUES OR EXTRA ISSUES? 

• Our unusual policy of automatically sending all issues of Pascal News to anyone who joins within a year 
means that we eliminate many requests for backissues ahead of time, and we don't have to reprint important 
information in every issue — especially about Pascal implementations! 

• Issues 1 . . 8 (January, 1 974 — May 1 977) are out of print. 

• Issues 9 . . 12, 13 . . 16, & 17 . . 20, 21 . . 23 are available from PUG(USA) all for $25.00 a set. 

• Extra single copies of new issues (current academic year) are: $10 each — PUG(USA). 



SENDING MATERIAL FOR PUBLICATION? 

Your experiences with Pascal (teaching and otherwise), ideas, letters, opinions, notices, news, articles, con- 
ference announcements, reports, implementation information, applications, etc. are welcome. Please send 
material single-spaced and in camera-ready (use a dark ribbon and lines 15.5 cm. wide) form. 

All letters will be printed unless they contain a request to the contrary. 
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Back Issues 1 983 

Pascal News 

2903 Huntington Road 
Cleveland, Ohio 441 20 



Back issues are requested and sent in sets 

$25 □ set 1 Issues 9 ... 12 (September 1977 — June 1978) 
$25 □ set 2 Issues 13 ... 16 (December 1978 — October 1979) 
$25 □ set 3 Issues 17 ... 20 (March 1980 — December 1980) 

$25 □ set 4 Issues 21 ... 23 (April 1981 [mailed January 1982] — 

September 1981 [mailed March 1982]) 

Requests from outside USA please add $5 per set. 

All memberships entered in 1983 will receive issue 24 and all other issues published in that year. 
Make check payable to: "Pascal Users Group," drawn on USA bank in US dollars. 



Enclosed please find US $. 
on check number 



(I have difficulty reading addresses. Please forgive me and type or print clearly) 
My address is: 

NAME 

ADDRESS 



PHONE 

COMPUTER 

DATE 
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APPLICATION FOR LICENSE TO USE VALIDATION SUITE FOR PASCAL 



Name and address ot requestor: 

(Company name if requestor is a company) 



Phone Number : 

Name and address to which information should 
be addressed (write "as above" if the same) : 



Signature of requestor: 
Date: 



In making this application, which should be signed by a responsible person in the case of a company, the requestor agrees 
that: 

a ) The Validation Suite is recognized as being the copyrighted, proprietary property of The British Standards 
Organization and A. H. J. Sale, and 

b) The requestor will not distribute or otherwise make available machine-readable copies of the Validation 
Suite, modified or unmodified, to any third party without written permission of the copyright holders. 

In return, the copyright holders grant full permission to use the programs and documentation contained in the Validation 
Suite for the purpose of compiler validation, acceptance tests, benchmarking, preparation of comparative reports and 
similar purposes, and to make available the listings of the results of compilation and execution of the programs to third 
parties in the course of the above activities. In such documents, reference shall be made to the original copyright notice 
and its source. 



Distribution Charge: $300.00 

Make checks payable to: 

Software Consulting Services 

in US dollars drawn on a US bank. 

Remittance must accompany application. 



Mail Request and Check To: 

Software Consulting Services 

901 Whittier Dr. 

Allentown, PA. 18103 USA 

Attn: R. J. Cichelli 



SOURCE CODE DELIVERY MEDIUM SPECIFICATION 




I ) Magnetic tape 


[ ) 8" Diskette 




9-Track, odd parity. 1/2"x600\ Select Density: 


( ) Single Density 




( ) 800 bpi ( ) 1600 bpi 


( ) Double Density 




( ) ANSI-STANDARD. Each logical record is an 


Format 




80 character card image. Each physical 
record has a block size of 40 logical 
records. Select Character Code: 
( ) ASCII ( ) EBCDIC 
( ) Special DEC System Alternate Formats: 


( ) CP/M ( 
( ) UCSD II. IV ( 
( ) DEC-RSX Files 11 ( 

Special Format 


) UCSD III (W. D. Microengine) 

) DEC-RT (Single Density) 

) IBM 3740 (Single Density EBCDIC) 


( ) RSX-IAS PIP (requires ANSI MAGtape RSX SYSGEN). 
( ) D0S-RSTS FLX. 


( ) Interleave (1-26) 
( ) Skew (0-25) 





Office Use Only 



Signed: 
Date: 



Richard J. Cichelli 
On Behalf of A. H. J. Sale and B. S. I. 
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UCSD Pascal System User's Society 



UCSD p-System User's Society 



us 



GET MORE FROM YOUR PASCAL SYSTEM 
.... JOIN USUS TODAY 

USUS is the USER'S GROUP for the most widely used, machine-independent 
software system. 

If you use UCSD Pascal*, Apple Pascal** or the UCSD p-System, USUS will link you 
with a community of users that share your interests. 

USUS was formed to give users an opportunity to promote and influence the development of 
UCSD Pascal and the UCSD p-System and to helpthem learn more about their systems. USUSis non- 
profit and vendor-independent. 

Members get access to the latest UCSD p-System information and to extensive Pascal expertise. 
In USUS, you have formal and informal opportunities to communicate with and iearn from other 
users via: 



. NATIONAL MEETINGS 

. USUS NEWS AND REPORT 

. ELECTRONIC MAIL 



. SOFTWARE LIBRARY 

. SPECIAL INTEREST GROUPS 



*UCSD Pascal and the UCSD p-System are trademarks of the Regents of the University of California. 
"Apple Pascal is a trademark of Apple Computer. Inc. 



USUS MEMBERSHIP APPLICATION 



(Please complete both sides) 



i am applying for $25 individual membership 

$500 organization membership 
$ air mail service surcharge 



Rates are for 12 months and cover surface mailing of the newsletter. If you reside outside North 
America, air mail service is available for a surcharge. It is as follows: $5.00 annually for those in the 
Caribbean, Central America and Columbia and Venezuela; $1 0.00 annually forthose in South America, 
Turkey and North Africa; and $1 5.00 for all others. Check or money order should be drawn on a U. S. 
bank or U.S. office. 



Name/Title 
Affiliation _ 
Address 



Phone (_ 



Option 
Option 
Option 



J. 



TWX/Telex 



Do not print my phone number in USUS rosters 
Print only my name and country in USUS rosters 
Do not release my name on mailing lists 



Coupons 
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USUS MEMBERSHIP BENEFITS 

• • • • • 

• NATIONAL MEETINGS twice a year let you learn from experts and try out the newest products. 
Meetings feature hardware and software demonstrations, tutorials, technical presentations and 
information, reduced-cost software library access, special interest group (S I G) meetings, and a chance 
to query "major" vendors. 

• USUS N EWS AN D REPORT brings you news and information about your operating system four times 
a year. It contains technical articles and updates, library catalog listings, SIG reports, a software 
vendor directory and organizational news. 

• ELECTRONIC MAIL puts USUS subscribers in touch with a nationwide network of users. Compu- 
Serve MUSUS SIG is for data bases and bulletin board communications. GTE Telemail accommo- 
dates one-to-one messages. 

• SOFTWARE EXCHANGE LIBRARY offers an extensive collection of tools, games, applications, 
and aides in UCSD Pascal source code at nominal prices. 

• SPECIAL INTEREST GROUPS zero in on specific problems, represent member interests with 
manufacturers. 



For more information, contact: Secretary, USUS, P. 0. Box 1 1 48, La Jolla, CA 92038, USA. 



Computer System: 

Z-80 8080 

9900 



8086/8088 



PDP/LSI-11 . 
Z8000 



6502/Apple 
_ 68000 



6800 



6809 



MicroEngine 



IBM PC 



Other. 



am interested in the following Committees/Special Interest Groups (SIGs): 



. Advanced System Editor SIG 

Apple SIG 

Application Developer's SIG 
, Communications SIG 

DEC SIG 

File Access SIG 

Graphics SIG 

IBM Display Writer SIG 

IBM PC SIG 



, Meetings Committee 
Modula-2 SIG 
NEC Advanced PC SIG 
Publications Committee 
Sage SIG 

Software Exchange Library 
Technical Issues Committee 
Texas Instruments SIG 
UCSD Pascal Compatability SIG 



Mail completed application with check or money order payable to USUS and drawn on a U.S. bank or 
U.S. office, to Secretary, USUS, P.O. Box 1 1 48, La Jolla. CA 92038. USA. 
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Membership July 1983 

Pascal News 

2903 Huntington Road 
Cleveland, Ohio 441 20 

Please enter my 

□ New or □ Renew 

membership in Pascal Users Group. I understand I will receive "Pascal News" whenever it is published in this 
calendar year. 

Pascal News should be mailed 

1 yr. □ in USA $25 □ outside USA $35 □ AirMail anywhere $60 

3 yr. □ in USA $50 □ outside USA $80 □ AirMail anywhere $125 

(Make checks payable to: "Pascal Users Group," drawn on USA bank in US dollars) 



Enclosed please find US $_ 
on check number 



(Invoice will be sent on receipt of purchase or- 
ders. Payment must be received before news- 
letter will be sent. Purchase orders will be billed 
$1 for additional work.) 

(I have difficulty reading addresses. Please forgive me and type or print clearly.) 
My address is: 



NAME 
ADDRESS 



PHONE 

COMPUTER 

DATE 

□ This is an address correction here is my old address label: 
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JOINING PASCAL USER GROUP? 

Membership is open to anyone: Particularly the Pascal user, teacher, maintainer, implementor, distributor, 
or just plain fan. 

Please enclose the proper prepayment (check payable to "Pascal User's Group"). 

When you join PUG any time within a year: January 1 to December 31 , you will receive all issues Pascal 
News for that year. 

We produce Pascal News as a means toward the end of promoting Pascal and communicating news of 
events surrounding Pascal to persons interested in Pascal. We are simply interested in the news ourselves 
and prefer to share it through Pascal News. We desire to minimize paperwork, because we have other work 
to do. 



RENEWING? 

• Please renew early (before November) and please write us a line or two to tell us what you are doing with 
Pascal, and tell us what you think of PUG and Pascal News. 

ORDERING BACK ISSUES OR EXTRA ISSUES? 

• Our unusual policy of automatically sending all issues of Pascal News to anyone who joins within a year 
means that we eliminate many requests for backissues ahead of time, and we don't have to reprint important 
information in every issue — especially about Pascal implementations! 

• Issues 1 . . 8 (January, 1 974 — May 1 977) are out of print. 

• Issues 9 . . 12, 13 . . 16, & 17 . . 20, 21 . . 23 are available from PUG(USA) all for $25.00 a set. 

• Extra single copies of new issues (current academic year) are: $10 each — PUG(USA). 



SENDING MATERIAL FOR PUBLICATION? 

Your experiences with Pascal (teaching and otherwise), ideas, letters, opinions, notices, news, articles, con- 
ference announcements, reports, implementation information, applications, etc. are welcome. Please send 
material single-spaced and in camera-ready (use a dark ribbon and lines 15.5 cm. wide) form. 

All letters will be printed unless they contain a request to the contrary. 
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Back Issues 1983 

Pascal News 

2903 Huntington Road 
Cleveland, Ohio 44120 



Back issues are requested and sent in sets 

illllM^ ©fflJTT ©C 

$25 □ set 1 Issues 9 ... 12 (September 1977 — June 1978) 

$25 □ set 2 Issues 13 ... 16 (December 1978 — October 1979) 

$25 □ set 3 Issues 17 ... 20 (March 1980 — December 1980) 

$25 □ set 4 Issues 21 ... 23 (April 1981 [mailed January 1982] — 

September 1981 [mailed March 1982]) 

Requests from outside USA please add $5 per set. 

All memberships entered in 1983 will receive issue 24 and all other issues published in that year. 
Make check payable to: "Pascal Users Group," drawn on USA bank in US dollars. 



Enclosed please find US $. 
on check number 



(I have difficulty reading addresses. Please forgive me and type or print clearly) 
My address is: 

NAME 

ADDRESS 



PHONE 

COMPUTER 

DATE 
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Back Issues 1 983 

Pascal News 

2903 Huntington Road 
Cleveland, Ohio 441 20 



Back issues are requested and sent in sets 

$25 □ set 1 Issues 9 ... 12 (September 1977 — June 1978) 
$25 □ set 2 Issues 13 ... 16 (December 1978 — October 1979) 
$25 □ set 3 Issues 17 ... 20 (March 1980 — December 1980) 

$25 □ set 4 Issues 21 ... 23 (April 1981 [mailed January 1982] — 

September 1981 [mailed March 1982]) 

Requests from outside USA please add $5 per set. 

All memberships entered in 1983 will receive issue 24 and all other issues published in that year. 
Make check payable to: "Pascal Users Group," drawn on USA bank in US dollars. 



Enclosed please find US $. 
on check number 



(I have difficulty reading addresses. Please forgive me and type or print clearly) 
My address is: 

NAME 

ADDRESS 



PHONE 

COMPUTER 

DATE 
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UCSD Pascal System User J s Society UCSD p-System User's Society 



us 



GET MORE FROM YOUR PASCAL SYSTEM 
.... JOIN USUS TODAY 

USUS is the USER'S GROUP for the most widely used, machine-independent 
software system. 

If you use UCSD Pascal*, Apple Pascal** orthe UCSD p-System, USUS will linkyou 
with a community of users that share your interests. 

USUS was formed to give users an opportunity to promote and influence the development of 
UCSD Pascal and the UCSD p-System and to helpthem learn more about their systems. USUS is non- 
profit and vendor-independent. 

Members get access to the latest UCSD p-System information and to extensive Pascal expertise. 
In USUS, you have formal and informal opportunities to communicate with and learn from other 
users via: 

. NATIONAL MEETINGS . SOFTWARE LIBRARY 

. USUS NEWS AND REPORT . SPECIAL INTEREST GROUPS 

. ELECTRONIC MAIL 

*UCSD Pascal and the UCSD p-System are trademarks of the Regents of the University of California. 
**Apple Pascal is a trademark of Apple Computer. Inc. 



USUS MEMBERSHIP APPLICATION 

(Please complete both sides) 



am applying for $25 individual membership 

$500 organization membership 
$ air mail service surcharge 



Rates are for 12 months and cover surface mailing of the newsletter. If you reside outside North 
America, air mail service is available for a surcharge. It is as follows: $5.00 annually for those in the 
Caribbean, Central America and Columbia and Venezuela; $1 0.00 annually forthose in South America, 
Turkey and North Africa; and $1 5.00 for all others. Check or money order should be drawn on a U. S. 
bank or U.S. office. 



Name/Title 
Affiliation _ 
Address 



Phone ( ) - TWX/Telex 

Option: Do not print my phone number in USUS rosters 

Option: Print only my name and country in USUS rosters 

Option: Do not release my name on mailing lists 
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UCSD Pascal System User's Society UCSD p-System User's Society 



us 
na 



GET MORE FROM YOUR PASCAL SYSTEM 
.... JOIN USUS TODAY 

USUS is the USER'S GROUP for the most widely used, machine-independent 
software system. 

If you use UCSD Pascal*, Apple Pascal** or the UCSD p-System, USUS will link you 
with a community of users that share your interests. 

USUS was formed to give users an opportunity to promote and influence the development of 
UCSD Pascal and the UCSD p-System and to helpthem learn moreabouttheirsystems. USUS is non- 
profit and vendor-independent. 

Members get access to the latest UCSD p-System information and to extensive Pascal expertise. 
In USUS, you have formal and informal opportunities to communicate with and learn from other 
users via: 

. NATIONAL MEETINGS . SOFTWARE LIBRARY 

. USUS NEWS AND REPORT . SPECIAL INTEREST GROUPS 

. ELECTRONIC MAIL 

*UCSD Pascal and the UCSD p-System are trademarks of the Regents of the University of California. 
"Apple Pascal is a trademark of Apple Computer, inc. 



USUS MEMBERSHIP APPLICATION 

(Please complete both sides) 



I am applying for $25 individual membership 

$500 organization membership 
$ air mail service surcharge 



Rates are for 12 months and cover surface mailing of the newsletter. If you reside outside North 
America, air mail service is available for a surcharge. It is as follows: $5.00 annually for those in the 
Caribbean, Central America and Columbia and Venezuela; $1 0.00 annually for those in South America, 
Turkey and North Africa; and $1 5.00 for all others. Check or money order should be drawn on a U. S. 
bank or U.S. office. 



Name/Title 
Affiliation _ 
Address 



Phone ( ) - TWX/Telex 

Option: Do not print my phone number in USUS rosters 

Option: Print only my name and country in USUS rosters 

Option: Do not release my name on mailing lists 
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Membership July 1983 

Pascal News 

2903 Huntington Road 
Cleveland, Ohio 44120 

Please enter my 

□ New or □ Renew 

membership in Pascal Users Group. I understand I will receive "Pascal News" whenever it is published in this 
calendar year. 

Pascal News should be mailed 

1 yr. □ in USA $25 □ outside USA $35 □ AirMail anywhere $60 

3 yr. □ in USA $50 □ outside USA $80 □ AirMail anywhere $125 

(Make checks payable to: "Pascal Users Group," drawn on USA bank in US dollars) 



Enclosed please find US $_ 
on check number 



(Invoice will be sent on receipt of purchase or- 
ders. Payment must be received before news- 
letter will be sent. Purchase orders will be billed 
$1 for additional work.) 

(I have difficulty reading addresses. Please forgive me and type or print clearly.) 
My address is: 



NAME 
ADDRESS 



PHONE 

COMPUTER 

DATE 

□ This is an address correction here is my old address label: 



Coupons 63 



JOINING PASCAL USER GROUP? 

Membership is open to anyone: Particularly the Pascal user, teacher, maintainer, implementor, distributor, 
or just plain fan. 

Please enclose the proper prepayment (check payable to "Pascal User's Group"). 

When you join PUG any time within a year: January 1 to December 31 , you will receive all issues Pascal 
News for that year. 

We produce Pascal News as a means toward the end of promoting Pascal and communicating news of 
events surrounding Pascal to persons interested in Pascal. We are simply interested in the news ourselves 
and prefer to share it through Pascal News. We desire to minimize paperwork, because we have other work 
to do. 



RENEWING? 

Please renew early (before November) and please write us a line or two to tell us what you are doing with 
Pascal, and tell us what you think of PUG and Pascal News. 

ORDERING BACK ISSUES OR EXTRA ISSUES? 

Our unusual policy of automatically sending all issues of Pascal News to anyone who joins within a year 
means that we eliminate many requests for backissues ahead of time, and we don't have to reprint important 
information in every issue — especially about Pascal implementations! 

Issues 1 . . 8 (January, 1974 — May 1977) are out of print. 

Issues 9 . . 12, 13 . . 16, & 17 . . 20, 21 . . 23 are available from PUG(USA) all for $25.00 a set. 

Extra single copies of new issues (current academic year) are: $10 each — PUG(USA). 



SENDING MATERIAL FOR PUBLICATION? 

Your experiences with Pascal (teaching and otherwise), ideas, letters, opinions, notices, news, articles, con- 
ference announcements, reports, implementation information, applications, etc. are welcome. Please send 
material single-spaced and in camera-ready (use a dark ribbon and lines 15.5 cm. wide) form. 

All letters will be printed unless they contain a request to the contrary. 
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Facts about Pascal, THE PROGRAMMING LANGUAGE: 

Pascal is a small, practical, and general-purpose (but not all-purpose) programming language possessing 
algorithmic and data structures to aid systematic programming. Pascal was intended to be easy to learn and 
read by humans, and efficient to translate by computers. 

Pascal has met these goals and is being used successfully for: 

• teaching programming concepts 

• developing reliable "production" software 

• implementing software efficiently on today's machines 

• writing portable software 

Pascal implementations exist for more than 105 different computer systems, and this number increases every 
month. The "Implementation Notes" section of Pascal News describes how to obtain them. 

The standard reference ISO 7185 tutorial manual for Pascal is: 

Pascal — User Manual and Report (Second, study edition) 
by Kathleen Jensen and Niklaus Wirth. 
Springer-Verlag Publishers: New York, Heidelberg, Berlin 
1978 (corrected printing), 167 pages, paperback, $7.90. 

Introductory textbooks about Pascal are described in the "Here and There" section of Pascal News. 

The programming language, Pascal, was named after the mathematician and religious fanatic Blaise Pascal 
(1623-1662). Pascal is not an acronym. 

Remember, Pascal User's Group is each individual member's group. We currently have more than 3500 active 
members in more than 41 countries. 



Return to: 



Pascal News 

2903 Huntington Rd. • Cleveland, Ohio 44120 

Return postage guaranteed Address Correction requested 



BULK RATE 

U.S. POSTAGE 

PAID 

WILLOUGHBY, OHIO 
Permit No. 58 



This is your last issue if you have not renewed for 1983! 



